home *** CD-ROM | disk | FTP | other *** search
/ IBM OEM Software Product … CD For PC Manufacturers / IBM OEM Software - Product Sampler CD for PC Manufacturers.iso / InternetIntranets / Notes / LOTUS018.DSK / MAILW46.NTF (.txt) < prev    next >
Lotus Notes Database  |  1997-09-15  |  2MB  |  20,944 lines
  1. Mail - Web Only (R4.6)
  2. #1StdR46WebMail
  3. d:\46\kit\mail46.web
  4. $FolderInfo
  5. $FolderRefInfo
  6. FOLDER_DIRECTORY_OBJECT
  7. ($Alarms)|$Alarms
  8. ($Inbox)
  9. ($Trash)
  10. CN=Lotus Notes Template Development/O=Lotus Notes
  11. ok 7^
  12. GpZ_QU
  13. qHmvO
  14. CN=Barney Rubble/O=Iris AssociatesCN=Buzz Lightyear/O=Iris AssociatesCN=Ryan Jansen/O=IrisCN=Buzz Lightyear/O=Iris AssociatesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Qt34Q
  15. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
  16. CN=Ryan Jansen/O=Irise:\notefile\mail45.ntf
  17. CN=Harry Peebles/O=Iris
  18. qWYw{Y
  19. ##########################################################
  20. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
  21. (web wFreeTime)wFreeTimeDC1
  22. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  23. (web vt All)$$ViewTemplate for ($All)(web view template)CDn
  24. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
  25. (web vt Discussion Threads)$$ViewTemplate for Discussion Threads(web view template)CDn
  26. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
  27. GpZ_QU
  28. (web vt Drafts)$$ViewTemplate for ($Drafts)(web view template)CDn
  29. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  30. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  31. ##########################################################'++LotusScript Development Environment:2:5:(Options):0:66
  32. '++LotusScript Development Environment:2:5:(Forward):0:1
  33. Declare Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  34. Declare Sub Postdocumentdelete(Source As Notesuidatabase)
  35. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37. Private Sub BindEvents(Byval Objectname_ As String)
  38.      Static Source As NOTESUIDATABASE
  39.      Set Source = Bind(Objectname_)
  40.      On Event Querydocumentdelete From Source Call Querydocumentdelete
  41.      On Event Postdocumentdelete From Source Call Postdocumentdelete
  42. End Sub
  43. '++LotusScript Development Environment:2:2:Querydocumentdelete:1:12
  44. Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  45.      
  46. End Sub
  47. '++LotusScript Development Environment:2:2:Postdocumentdelete:1:12
  48. Sub Postdocumentdelete(Source As Notesuidatabase)
  49.      
  50. End Sub
  51. O=Lotus Notes
  52. O=Lotus Notes
  53. PURSAFO
  54. |.:#U
  55. O=Lotus Notes
  56. CN=Lotus Notes Template Development/O=Lotus Notes
  57. PURSAFO
  58. Fde!f^^
  59. JQ~=6
  60. $DBScript
  61. $DBScript_O
  62. $TITLE
  63. $Flags
  64. $PublicAccess
  65. Times New Roman
  66. Basic
  67. Bullet
  68. Using Mail
  69.     Creating a Mail Message
  70.     There are three simple forms for creating a new mail message:
  71.     Memo 
  72.     - Use this form to create a new message
  73.     Reply 
  74.     - Use this form to reply to a message that you have received. This form will work only when you have selected a document to reply to.
  75.     Reply With History
  76.      - This is
  77.     similar to a Reply, except that a copy of the message being replied to will be automatically copied into your new message.
  78.     Before you send a message you must fill in the following information:
  79.      - The primary recipients of the message. The content of the message is directed to them or they must take action on this message.
  80.      - Recipients who will receive a copy of the message, but are not usually required to take action on it.
  81.     bcc:
  82.      - Recipients who will receive a blind copy of this message.
  83.     You can send a message by choosing the "Send" action.
  84.     Calendaring and Scheduling
  85.     This database can also be used to organize your time, keep a list of tasks and meetings, and create the following kinds of information to share with other Mail users:
  86.     Calendar Entry - 
  87.     Use the Calendar Entry form for both personal appointments and for scheduling meetings with people. Select the Invitation radio-button to schedule a meeting with others.  You can send meeting announcements, select Required and Optional attendees, and find free time slots for the people whom you invite.  
  88.     Bookmark 
  89.     - Use this form to send another Mail user a reference to a document. It is most useful when reading documents in a database that is shared with others on a server. For example, if you are reading a Discussion database and find a document that may be of use to someone else, creating a Bookmark message will allow that person to find the document very easily.
  90.     Phone Message 
  91.     - Use this form to take a message for another Mail user.
  92.     Task 
  93.     - Use this form to remind yourself of something that you need to do, or to ask another person to do something for you. If you send a Task to another Mail user, or to several users, they will be able to notify you when they have completed the Task. 
  94.     A special view (see below) has been provided to help you organize your Tasks and Tasks that you have assigned to other people.
  95.     A Calendar Profile will automatically be created for you with default settings.  The Calendar Profile lets you decide who can view your free time schedule as well as define personal Calendar settings.  Use Actions Calendar Tools Calendar Profile to change your Calendar Profile settings.
  96.     Folders and Views
  97.     The following views and folders are provided for you:
  98. Inbox 
  99.     Messages that have been sent to you by another Mail user will appear here.
  100. Calendar - 
  101.     This view looks like a desktop calendar.  Appointments you have scheduled will be displayed in two day, one week, two week, or one month calendar pages.
  102.     Drafts - 
  103.     Messages that you have created and saved, but have not yet sent, will appear here.
  104.     Sent 
  105.     - Messages will appear here if you after you have sent them. You can decide whether you want messages saved here automatically or whether you should be asked before a message is saved.
  106.     Trash 
  107.     - Messages that you have marked for deletion will appear here.
  108.     Tasks 
  109.     - Tasks that you have created for yourself and Tasks that you have assigned to other people will appear here. This view will also help you keep track of which Tasks have been completed and when.
  110.     Meetings 
  111.     - Invitations to meetings and responses that people have returned to you will appear here.
  112.     In addition, you can create your own folders and views to help organize your Mail database.
  113. O=Lotus Notes
  114. O=Lotus Notes
  115. PURSAFO
  116. |.:#U
  117. O=Lotus Notes
  118. CN=Lotus Notes Template Development/O=Lotus Notes
  119. PURSAFO
  120. Fde!f^^
  121. $INFO
  122. $BODY
  123. Times New Roman
  124. About Web Mail
  125.     This Web Mail template is for use from web browsers only. The Notes Client is only used to modify this template. This web mail template is not intended to function via the Notes Client, and will only work properly from a web browser.
  126.     The Web Mail template is used to create a database to send and receive electronic mail using a Domino Server. 
  127.     The Web Mail template also contains Calendaring and Scheduling features which can be used for personal time management, meeting and appointment scheduling. The Calendar View provides a desktop calendar for ease in viewing scheduled appointments.
  128. O=Lotus Notes
  129. O=Lotus Notes
  130. PURSAFO
  131. |.:#U
  132. O=Lotus Notes
  133. CN=Lotus Notes Template Development/O=Lotus Notes
  134. PURSAFO
  135. Fde!f^^
  136. XAlm|
  137. $INFO
  138. $BODY
  139. Started running agent 'wUpdateTasks' on 07/27/97 10:41:08 PM
  140. Ran LotusScript code
  141. Done running agent 'wUpdateTasks' on 07/27/97 10:41:13 PM
  142. O=Lotus Notes
  143. O=Lotus Notes
  144. PURSAFO
  145. |.:#U
  146. O=Lotus Notes
  147. CN=Lotus Notes Template Development/O=Lotus Notes
  148. PURSAFO
  149. Fde!f^^
  150. p!LY5
  151. $ACLDigest
  152. "Small Fonts
  153. New Calendar Entry
  154. Subject
  155. '++LotusScript Development Environment:2:5:(Options):0:74
  156. '++LotusScript Development Environment:2:5:(Forward):0:1
  157. '++LotusScript Development Environment:2:5:(Declarations):0:2
  158.  wFreeTime'++LotusScript Development Environment:2:5:(Options):0:66
  159. '++LotusScript Development Environment:2:5:(Forward):0:1
  160. Declare Sub Postopen(Source As Notesuidocument)
  161. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  162. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  163. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  164. Declare Sub Postrecalc(Source As Notesuidocument)
  165. Declare Sub Postmodechange(Source As Notesuidocument)
  166. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  167. Declare Sub Initialize
  168. Declare Sub Terminate
  169. '++LotusScript Development Environment:2:5:(Declarations):0:2
  170. '++LotusScript Development Environment:2:2:BindEvents:1:129
  171. Private Sub BindEvents(Byval Objectname_ As String)
  172.      Static Source As NOTESUIDOCUMENT
  173.      Set Source = Bind(Objectname_)
  174.      On Event Postopen From Source Call Postopen
  175.      On Event Querysave From Source Call Querysave
  176.      On Event Queryopen From Source Call Queryopen
  177.      On Event Queryclose From Source Call Queryclose
  178.      On Event Postrecalc From Source Call Postrecalc
  179.      On Event Postmodechange From Source Call Postmodechange
  180.      On Event Querymodechange From Source Call Querymodechange
  181. End Sub
  182. '++LotusScript Development Environment:2:2:Postopen:1:12
  183. Sub Postopen(Source As Notesuidocument)
  184.      
  185. End Sub
  186. '++LotusScript Development Environment:2:2:Querysave:1:12
  187. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  188.      
  189. End Sub
  190. '++LotusScript Development Environment:2:2:Queryopen:1:12
  191. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  192.      
  193. End Sub
  194. '++LotusScript Development Environment:2:2:Queryclose:1:12
  195. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  196.      
  197. End Sub
  198. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  199. Sub Postrecalc(Source As Notesuidocument)
  200.      
  201. End Sub
  202. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  203. Sub Postmodechange(Source As Notesuidocument)
  204.      
  205. End Sub
  206. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  207. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  208.      
  209. End Sub
  210. '++LotusScript Development Environment:2:2:Initialize:1:10
  211. Sub Initialize
  212.      
  213. End Sub
  214. '++LotusScript Development Environment:2:2:Terminate:1:10
  215. Sub Terminate
  216.      
  217. End Sub
  218.     Hidden Fields: 
  219. tmpFrom
  220. Appointment
  221. $ExpandGroups
  222. _ViewIcon
  223. Query_StringCGI variable for LS
  224. Path_Info
  225. appType
  226. [<b>  </b>]Free Time Finder
  227. GridField
  228. tmpGridField
  229. Domino
  230. RefreshFreeTimeGrid
  231. tmpGridField
  232. tmpMeetingTimesCtrl
  233. 12:01 am 97/05/20 - 11:59 pm 97/05/20
  234. 05/20/97
  235. 13:00
  236. Lou Reed
  237. Stan Getz
  238.     4S6S8S10S12S14S16S18S20S
  239. tmpGridFormula[<TYPE=hidden >]
  240. Recommended Meeting Times:
  241. MeetingTimesCtrl
  242. tmpMeetingTimesCtrl[<SIZE=14>]
  243.     [<BR><BR>]
  244.     [<BR><input TYPE=submit VALUE="Refresh FreeTime grid"><BR>]
  245. GridFormat
  246. by day|0by person|1
  247.     [<BR>]
  248. DatePicker
  249. 3/25/973/26/973/27/973/28/973/29/973/30/973/31/97
  250.      Date
  251. TimePicker,
  252. 09:00 am09:15 am09:30 am09:45 am10:00 am10:15 am10:30 am10:45 am11:00 am11:15 am11:30 am11:45 am12:00 pm12:15 pm12:30 pm12:45 pm01:00 pm01:15 pm01:30 pm01:45 pm02:00 pm02:15 pm02:30 pm02:45 pm03:00 pm03:15 pm03:30 pm03:45 pm04:00 pm04:15 pm04:30 pm04:45 pm05:00 pm05:15 pm05:30 pm05:45 pm06:00 pm06:15 pm06:30 pm06:45 pm07:00 pm07:15 pm07:30 pm07:45 pm
  253.      Time
  254. DurationPicker
  255. 0:15|150:30|300:45|451:00|601:15|751:30|901:45|1052:00|1202:15|1352:30|1502:45|1653:00|1803:15|1953:30|2103:45|2254:00|2404:30|2705:00|3005:30|3306:00|360
  256.      Duration (hours:minutes)[<BR>]
  257.     [<BR><input TYPE=submit VALUE="Use selected date and time"><BR>]
  258. [<b> </b>]
  259. = Busy
  260. [<b> </b>]
  261. = Free
  262. = Conflict
  263.     Hidden w/ HTML tag in help description field:
  264. tmpAssign
  265. &Assign
  266.     1S2S
  267. Path_Info
  268. tmpAssign
  269. tmpAssign
  270.     0R1S6S11S12S14S16S
  271. ViewArguments[<TYPE=hidden >]
  272. _Forward
  273. _Move to Folder...
  274. _Edit Document
  275. Attendees
  276. Principal
  277. RepeatIds
  278.     4S5S6S7R11S12S13S14S15S17S18S
  279. Categori_ze1
  280. Send Docu_ment
  281. _Remove from Folder...
  282. O=Lotus Notes
  283. O=Lotus Notes
  284. PURSAFO
  285. |.:#U
  286. O=Lotus Notes
  287. CN=Lotus Notes Template Development/O=Lotus Notes
  288. PURSAFO
  289. Fde!f^^
  290. ^^K_ 
  291. jHC    J^*
  292. CompletedOn
  293. EndDate
  294. CalendarDate_Time___Start
  295. CalendarDate_Time___End
  296. CalendarDates
  297. CalendarDate
  298. RepeatDates
  299. CalendarDateTime
  300. EndDateTime
  301. $NoPurge
  302. StartTime
  303. EndTime
  304. StartEndTime
  305. StartDateTime
  306. $FormPublicAccess
  307. TimeRange
  308. WebCalEntryTypeChanged
  309. ReminderTime
  310. MaxListed
  311. StartDate
  312. Duration
  313. $TITLE
  314. $INFO
  315. $WINDOWTITLE
  316. $Script
  317. $$Script_O
  318. $$ScriptName
  319. $$FormScript
  320. $$$FormScript_O
  321. _ViewIcon
  322. $BODY
  323. $ACTIONS
  324. $PublicAccess
  325.  $$ViewTemplate for ($All)
  326. Hidden: 
  327. ($All)
  328. ViewName[<TYPE=hidden >]
  329. (web view template)
  330. Categori_ze
  331. _Edit Document
  332. Send Docu_ment
  333. _Forward
  334. _Move To Folder...
  335. _Remove From Folder
  336. O=Lotus Notes
  337. O=Lotus Notes
  338. PURSAFO
  339. |.:#U
  340. O=Lotus Notes
  341. CN=Lotus Notes Template Development/O=Lotus Notes
  342. PURSAFO
  343. Fde!f^^
  344. $TITLE
  345. $INFO
  346. $SubForms
  347. $WINDOWTITLE
  348. $$Script_O
  349. $$ScriptName
  350. $BODY
  351. $ACTIONS
  352.  $$ViewTemplate for Discussion Threads
  353. Hidden: 
  354. Discussion Threads
  355. ViewName
  356. (web view template)
  357. Categori_ze
  358. _Edit Document
  359. Send Docu_ment
  360. _Forward
  361. _Move To Folder...
  362. _Remove From Folder
  363. O=Lotus Notes
  364. O=Lotus Notes
  365. PURSAFO
  366. |.:#U
  367. O=Lotus Notes
  368. CN=Lotus Notes Template Development/O=Lotus Notes
  369. PURSAFO
  370. Fde!f^^
  371. 12K-U
  372. $TITLE
  373. $INFO
  374. $SubForms
  375. $WINDOWTITLE
  376. $$ScriptName
  377. $BODY
  378. $ACTIONS
  379.  $$ViewTemplate for ($Drafts)
  380. Hidden: 
  381. ($Drafts)
  382. ViewName
  383. (web view template)
  384. Categori_ze
  385. _Edit Document
  386. Send Docu_ment
  387. _Forward
  388. _Move To Folder...
  389. _Remove From Folder_
  390. O=Lotus Notes
  391. O=Lotus Notes
  392. PURSAFO
  393. |.:#U
  394. O=Lotus Notes
  395. CN=Lotus Notes Template Development/O=Lotus Notes
  396. PURSAFO
  397. Fde!f^^
  398. $TITLE
  399. $INFO
  400. $SubForms
  401. $WINDOWTITLE
  402. $$ScriptName
  403. $BODY
  404. $ACTIONS
  405. (web vt InBox)$$ViewTemplate for ($InBox)(web view template)CDn
  406. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  407. (web vt Meetings)$$ViewTemplate for ($Meetings)(web view template)CDn
  408. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
  409. (web vt Sent)$$ViewTemplate for ($Sent)(web view template)CDn
  410. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  411. (web vt Trash)$$ViewTemplate for ($Trash)(web view template)CDn
  412. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  413. (web wFolders)wFoldersCDn
  414. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  415. (web NonDelivery Report)NonDelivery ReportCDn
  416. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  417. ##########################################################
  418. (web ret Authenticate)$$ReturnAuthenticationFailureCD1
  419. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
  420. (web ret Authorize)$$ReturnAuthorizationFailureCD1
  421. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  422. (web ret Error)$$ReturnGeneralErrorCD1
  423. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
  424. (web vt Calendar)$$ViewTemplate for ($Calendar)CDn
  425. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  426. (wTask)
  427. fL3uyda
  428. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  429. ##########################################################
  430.  $$ViewTemplate for ($InBox)
  431. Hidden: 
  432. ($InBox)
  433. ViewName
  434. (web view template)
  435. Categori_ze
  436. _Edit Document
  437. Send Docu_ment
  438. _Forward
  439. _Move To Folder...
  440. _Remove From Folder
  441. O=Lotus Notes
  442. O=Lotus Notes
  443. PURSAFO
  444. |.:#U
  445. O=Lotus Notes
  446. CN=Lotus Notes Template Development/O=Lotus Notes
  447. PURSAFO
  448. Fde!f^^
  449. W]?9,
  450. $TITLE
  451. $INFO
  452. $SubForms
  453. $WINDOWTITLE
  454. $$ScriptName
  455. $BODY
  456. $ACTIONS
  457.  $$ViewTemplate for ($Meetings)
  458. Hidden: 
  459. ($Meetings)
  460. ViewName
  461. (web view template)
  462. Categori_ze
  463. _Edit Document
  464. Send Docu_ment
  465. _Forward
  466. _Move To Folder...
  467. _Remove From Folder
  468. O=Lotus Notes
  469. O=Lotus Notes
  470. PURSAFO
  471. |.:#U
  472. O=Lotus Notes
  473. CN=Lotus Notes Template Development/O=Lotus Notes
  474. PURSAFO
  475. Fde!f^^
  476. $TITLE
  477. $INFO
  478. $SubForms
  479. $WINDOWTITLE
  480. $$ScriptName
  481. $BODY
  482. $ACTIONS
  483.  $$ViewTemplate for ($Sent)
  484. Hidden: 
  485. ($Sent)
  486. ViewName
  487. (web view template)
  488. Categori_ze
  489. _Edit Document
  490. Send Docu_ment
  491. _Forward
  492. _Move To Folder...
  493. _Remove From Folder
  494. O=Lotus Notes
  495. O=Lotus Notes
  496. PURSAFO
  497. |.:#U
  498. O=Lotus Notes
  499. CN=Lotus Notes Template Development/O=Lotus Notes
  500. PURSAFO
  501. Fde!f^^
  502. $TITLE
  503. $INFO
  504. $SubForms
  505. $WINDOWTITLE
  506. $$ScriptName
  507. $BODY
  508. $ACTIONS
  509.  $$ViewTemplate for ($Trash)
  510. Hidden: 
  511. ($Trash)
  512. ViewName
  513. (web view template)
  514. Categori_ze
  515. _Edit Document
  516. Send Docu_ment
  517. _Forward
  518. _Move To Folder...
  519. _Remove From Folder_
  520. O=Lotus Notes
  521. O=Lotus Notes
  522. PURSAFO
  523. |.:#U
  524. O=Lotus Notes
  525. CN=Lotus Notes Template Development/O=Lotus Notes
  526. PURSAFO
  527. Fde!f^^
  528. $TITLE
  529. $INFO
  530. $SubForms
  531. $WINDOWTITLE
  532. $$ScriptName
  533. $BODY
  534. $ACTIONS
  535.  wFolders
  536.     Hidden:
  537. SaveOptions
  538. wFoldersOpen
  539. $$QueryOpenAgent
  540. wFoldersSave
  541. $$QuerySaveAgent
  542. Query_String
  543. Query_String
  544. Path_Info
  545. Path_Info
  546. tmpFolder
  547. [<b> </b>]
  548. SaveOption
  549.  
  550.  
  551.  
  552. </b>]
  553. Folder Utilities
  554.     Selected Document:
  555. tmpSelectedDocument
  556. tmpSelectedDocument
  557. dispSelectedFolder
  558. dispSelectedFolder
  559. tmpSelectedFolder
  560. tmpSelectedFolder
  561. tmpRemFromFolder
  562.     [<BR>]
  563.     Name of new folder:
  564. tmpNewFolder[<size=50>]
  565. tmpCurFolderIsView
  566.     1S2S
  567.     New folder options:
  568.     The source View cannot have documents moved out of it. This d
  569.     ocument will be copied into the new Folder.
  570.     [<BR><BR>]
  571. tmpCurFolderIsView
  572.     1S2S
  573.     New folder options:
  574. tmpNewFolderOptions
  575. Move document to new folder|1Copy document to new folder|2
  576.     0S0E
  577.     Create Folder
  578. List of folders:
  579. dispFolderList
  580. dispFolderList
  581. [<b> </b>]
  582. [<b>   </b>]
  583.     The current document can be moved or copied into and out of any folder.
  584.     The current document can only be copied out of a view.
  585.     Create a folder by entering a name and pressing the button. Only users with at least "Designer" access rights can create new folders. The "Maximum Internet browser access" setting for the mail file must also be set to "Designer" or above. The system administrator must set these values for you.
  586.     Click a link to the left of a folder's name to move or copy the current document into that folder.
  587.     Navigate to a folder by clicking it's name.
  588.     Remove a folder by clicking on the link to the right of that folder's name.
  589.     Documents that had been in a deleted folder remain unharmed in all their other folders and views.
  590.     All 
  591.     of the 
  592.     documents in the mail file are listed in the All Documents view.
  593.     Documents moved or copied into the Trash folder can be deleted by pressing the Empty Trash link.
  594.     Documents that are in the Trash will continue to be listed in views until the Trash is emptied.
  595.     To remove a document from the Trash, select the document while in the Trash view, click the File button, then click the Remove From Trash link.
  596.     Hidden w/ HTML tag in help description field:
  597. tmpUNIDnote[<TYPE=hidden >]
  598. tmpViewName[<TYPE=hidden >]
  599. tmpCurFolderIsView[<TYPE=hidden >]
  600. Categori_ze$
  601. _Edit Document
  602. Send Docu_ment
  603. _Forward
  604. _Move To Folder...
  605. _Remove From Folder
  606. In Box*
  607. ($InBox)
  608. Calendar
  609.     1S2S8S12S14S
  610. path"
  611. /($Calendar)?OpenView&Grid=
  612. CalendarProfile
  613. wCalGridType
  614.     0R3S4S5S6S7S8S12S
  615. Meetings.
  616. ($Meetings)
  617. To Do
  618. ($ToDo)
  619. All Views
  620. O=Lotus Notes
  621. O=Lotus Notes
  622. PURSAFO
  623. |.:#U
  624. O=Lotus Notes
  625. CN=Lotus Notes Template Development/O=Lotus Notes
  626. PURSAFO
  627. Fde!f^^
  628. $TITLE
  629. $INFO
  630. $$Script_O
  631. $$ScriptName
  632. $BODY
  633. $ACTIONS
  634. *** Message Not Delivered ***
  635.  NonDelivery Report
  636. $HideMailHeader
  637.     0S0E
  638. Delivery Failure Report
  639.     Your document:
  640. Subject
  641. OriginalSubject
  642.     was not delivered to
  643. IntendedRecipient
  644. IntendedRecipient
  645.     0S0E
  646. IntendedRecipient
  647.     because:
  648. FailureReason
  649. FailureReason
  650.     What should you do?
  651.     You can resend the undeliverable document to the recipients listed above by choosing the Resend button. 
  652.     Once you have resent the document you may delete this Delivery Failure Report.
  653.     If resending the document is not successful you will receive a new failure report
  654.     Unless you receive other Delivery Failure Reports, the document was successfully delivered to all other recipients.
  655.     Routing Path:
  656. RouteServers
  657. RouteServersServers along route.
  658. [<b>  </b>]
  659. From:[<b> </b>]
  660. tmpDisplayFrom_NoLogo
  661. PostedDateh
  662. PostedDate
  663.     7S9S
  664. tmpDisplayDate_NoLogoTime/date memo was created or mailed.
  665.     0S0E
  666.     Resend
  667. $HideMailHeader
  668. Principal
  669. Principal
  670. Principal
  671. Principal
  672. Principal
  673. <>$$Web
  674.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S55S56S61S62S64S
  675. CalendarProfile
  676. wEnableNABs
  677.     4S6S7S
  678. CalendarProfile
  679. wEnableNABs
  680.     1S6S8S9S11S16S
  681. CalendarProfile
  682. wNAB1
  683.     0RR1S2S6S
  684. CalendarProfile
  685. wNAB2
  686.     0R1S2S6S
  687. CalendarProfile
  688. wNAB3
  689.     0R1S2S6S
  690. CalendarProfile
  691. wNAB4
  692.     0R1S2S6S
  693. NABurl1
  694. CalendarProfile
  695. wNABurl1
  696.     0R1S2S6S
  697. NABurl2
  698. CalendarProfile
  699. wNABurl2
  700.     0R1S2S6S
  701. NABurl3
  702. CalendarProfile
  703. wNABurl3
  704.     0R1S2S6S
  705. NABurl4
  706. CalendarProfile
  707. wNABurl4
  708.     0R1S2S6S
  709. anchorHead
  710. <a href="
  711.     0RR1S2S
  712. anchorMid
  713. "><font size=2><b>
  714.     0R1S2S
  715. anchorTail
  716. </b></font></a>
  717.     0R1S2S
  718. spaces
  719.     
  720.     0R1S2S
  721. Link1
  722. anchorHead
  723. NABurl1
  724. anchorMid
  725. NAB1"
  726. anchorTail"
  727. spaces"
  728.     0RR1S2S3S4S5S6S7S8S9S10S11S12S
  729. Link2
  730. anchorHead
  731. NABurl2
  732. anchorMid
  733. NAB2"
  734. anchorTail"
  735. spaces"
  736.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  737. Link3
  738. anchorHead
  739. NABurl3
  740. anchorMid
  741. NAB3"
  742. anchorTail"
  743. spaces"
  744.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  745. Link4
  746. anchorHead
  747. NABurl4
  748. anchorMid
  749. NAB4"
  750. anchorTail"
  751.     0R1S2S3S4S5S6S7S8S9S10S
  752. Link1
  753. Link2
  754. Link3
  755. Link4
  756.     0RR1S2S3S4S5S6S7S8S9S10S
  757. tmpCustomAddressLinks
  758. SendTo[<size=58>]
  759. CopyTo[<size=58>]
  760.     Subject:
  761. Subject
  762. dispSubject[<size=58>]
  763. dispBody[<ROWS="10" COLS="60"  WRAP=VIRTUAL>]
  764.     [<BR>]
  765. [<b>  </b>]Mail Options[<BR>]
  766. Importance
  767. High|1Normal|2Low|3
  768.      Importance
  769. DeliveryReport
  770. On failure|BConfirm delivery|CTrace entire path|TNone|N
  771.      DeliveryReport
  772. DeliveryPriority
  773. High|HNormal|NLow|L
  774.      Delivery Priority
  775.     0S0E
  776.     Resend
  777.     Hidden: 
  778. wMemo
  779. $$QuerySaveAgent
  780. Path_Info
  781. Path_Info
  782. MailOptions
  783. SaveOptions
  784. tmpFrom
  785. Categori_ze
  786. Edit Document
  787. Resend
  788. _Forward
  789. _Move to Folder...
  790. _Remove from Folder...
  791. Resend 
  792.     0S0E
  793. Trashc
  794.     1S2S8S12S14S
  795. /wCommand?OpenAgent&ToTrash=
  796. &From="
  797.     0R1S2S3S4S11S13S15S16S
  798. Path_Info
  799. Path_Info
  800.     0R1S2S6S10S11S15S
  801. view1
  802.     0R1S2S3S10S14S18S21S
  803. view2
  804. view1
  805. view1
  806. view1
  807.     0R1S2S3S10S14S18S21S
  808. path"
  809. view2
  810.     0RR3S4S5S6S7S8S
  811.     1S2S8S12S14S
  812. /wFolders?OpenForm&UNID=
  813. &View="
  814.     0R1S2S3S4S11S13S15S16S
  815. Path_Info
  816. Path_Info
  817.     0R1S2S6S10S11S15S
  818. view1
  819.     0R1S2S3S10S14S18S21S
  820. view2
  821. view1
  822. view1
  823. view1
  824.     0R1S2S3S10S14S18S21S
  825. path"
  826. view2
  827.     0RR3S4S5S6S7S8S
  828. In Box*
  829. ($Inbox)
  830. Calendar
  831.     1S2S8S12S14S
  832. path"
  833. /($Calendar)?OpenView&Grid=
  834. CalendarProfile
  835. wCalGridType
  836.     0R3S4S5S6S7S8S12S
  837. Meetings.
  838. ($Meetings)
  839. To Do
  840. ($ToDo)
  841. All Views
  842. O=Lotus Notes
  843. O=Lotus Notes
  844. PURSAFO
  845. |.:#U
  846. O=Lotus Notes
  847. CN=Lotus Notes Template Development/O=Lotus Notes
  848. PURSAFO
  849. Fde!f^^
  850. $TITLE
  851. $INFO
  852. $WINDOWTITLE
  853. $$ScriptName
  854. $BODY
  855. $ACTIONS
  856. &Arial
  857.  $$ReturnAuthenticationFailure
  858.     0S0E
  859. Authentication Failure
  860.     0S0E
  861. [<BR><BR>]The name and password cannot be authenticated.
  862. Categori_ze
  863. _Edit Document
  864. Send Docu_ment
  865. _Forward
  866. _Move To Folder...
  867. _Remove From Folder_
  868. Calendar.
  869. ($Calendar)
  870. Meetings.
  871. ($Meetings)
  872. All Views
  873. O=Lotus Notes
  874. O=Lotus Notes
  875. PURSAFO
  876. |.:#U
  877. O=Lotus Notes
  878. CN=Lotus Notes Template Development/O=Lotus Notes
  879. PURSAFO
  880. Fde!f^^
  881. &\{y{-
  882. $TITLE
  883. $INFO
  884. $$ScriptName
  885. $BODY
  886. $ACTIONS
  887. $PublicAccess
  888. &Arial
  889.  $$ReturnAuthorizationFailure
  890. Authorization Failure
  891. [<BR><BR>]You are not authorized to perform that operation.
  892. Categori_ze
  893. _Edit Document
  894. Send Docu_ment
  895. _Forward
  896. _Move To Folder...
  897. _Remove From Folder_
  898. Calendar.
  899. ($Calendar)
  900. Meetings.
  901. ($Meetings)
  902. All Views
  903. O=Lotus Notes
  904. O=Lotus Notes
  905. PURSAFO
  906. |.:#U
  907. O=Lotus Notes
  908. CN=Lotus Notes Template Development/O=Lotus Notes
  909. PURSAFO
  910. Fde!f^^
  911. $TITLE
  912. $INFO
  913. $$ScriptName
  914. $BODY
  915. $ACTIONS
  916. $PublicAccess
  917. &Arial
  918.  $$ReturnGeneralError
  919.     0S0E
  920.     0S0E
  921. Response Message
  922. [<BR><BR>]
  923. MessageString
  924. MessageString
  925. Categori_ze
  926. _Edit Document
  927. Send Docu_ment
  928. _Forward
  929. _Move To Folder...
  930. _Remove From Folder_
  931. Calendar.
  932. ($Calendar)
  933. Meetings.
  934. ($Meetings)
  935. All Views
  936. O=Lotus Notes
  937. O=Lotus Notes
  938. PURSAFO
  939. |.:#U
  940. O=Lotus Notes
  941. CN=Lotus Notes Template Development/O=Lotus Notes
  942. PURSAFO
  943. Fde!f^^
  944. $TITLE
  945. $INFO
  946. $$ScriptName
  947. $BODY
  948. $ACTIONS
  949. $PublicAccess
  950.  $$ViewTemplate for ($Calendar)
  951. Hidden
  952. [<TABLE BORDER CELLSPACING=2 CELLPADDING=2><TR VALIGN=middle BGCOLOR="#C0C0C0"><TD>]
  953.     1S2S8S12S14S
  954. ViewArguments
  955. &Grid=
  956. CalendarProfile
  957. wCalGridType
  958. ViewArguments
  959.     0R1S2S3S8S9S11S12S13S17S20S
  960. path"
  961. /Appointment?OpenForm
  962. args"
  963.     0R3S4S5S6S7S8S
  964.  Meeting
  965. [</TD><TD>]
  966.     0S0E
  967.  Go To Today
  968. [</TD><TD>]
  969.                                 
  970.  Two Days
  971. [</TD><TD>]
  972. .                                
  973. _IRTF
  974.  One Week
  975. [</TD><TD>]
  976. Microso                                
  977.  Two Weeks
  978. [</TD><TD>]
  979.                                 *.CGM
  980. Excel 4.0/
  981.  One Month
  982. [</TD></TR></TABLE><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="50%" ALIGN=left>]
  983. Domino
  984. ViewPreviousPage
  985. Previous
  986. [</TD><TD WIDTH="50%" ALIGN=right>]
  987. Domino
  988. ViewNextPage
  989. [</TD></TR></TABLE>]
  990. $$ViewBody
  991. [<BR><TABLE WIDTH="100%"><TR VALIGN=middle><TD WIDTH="20%">]
  992. ($InBox)
  993.  In Box
  994. [</TD><TD WIDTH="20%">]
  995. ($Meetings)
  996. 1; "?"); view1);
  997.  Meetings
  998. [</TD><TD WIDTH="20%">]
  999. ($ToDo)
  1000. 1; "?"); view1);
  1001.  To Do
  1002. [</TD><TD WIDTH="20%">]
  1003. *.JPG
  1004. Lotus 1-2
  1005. rd RTF
  1006. *.DOC;*.R
  1007.  All Views
  1008. [</TD><TD WIDTH="20%">]
  1009.     1S2S8S12S14S
  1010. path"
  1011. /wCommand?OpenAgent&EmptyTrash=($Calendar)"
  1012.     0R3S4S5S6S
  1013.  Empty Trash
  1014. [</TD></TR></TABLE>]
  1015. Hidden: 
  1016. Query_String
  1017. Query_String
  1018. tmpOpenView
  1019. OpenView
  1020.     1S2S
  1021. tmpOpenViewLen
  1022. tmpOpenView
  1023.     0R1S2S3S
  1024. tmpQuery_StringLen
  1025. Query_String
  1026.     0R1S2S
  1027. tmpArgs
  1028. tmpQuery_StringLen
  1029. tmpOpenViewLen
  1030. tmpOpenView
  1031. Query_String
  1032. tmpOpenViewLen_
  1033. Query_String
  1034. tmpQuery_StringLen
  1035. tmpOpenViewLen#
  1036.     0RR1S2S3S5S6S8S10RS9E11S13S14S15S18S21S23RS18E27S28S29S31RS9E32S8E
  1037. tmpArgs
  1038. &Click_
  1039. tmpArgs
  1040. &Click_
  1041. tmpArgs
  1042.     0RR1S8S12S16S19S
  1043. ViewArguments
  1044. Discussion Threads
  1045. ViewName
  1046. ViewName
  1047.     4S6S
  1048. URLViewName
  1049. Categori_zem
  1050. _Edit Document
  1051. Send Docu_ment
  1052. _Forward
  1053. _Move To Folder...
  1054. _Remove From Folderh
  1055. O=Lotus Notes
  1056. O=Lotus Notes
  1057. PURSAFO
  1058. |.:#U
  1059. O=Lotus Notes
  1060. CN=Lotus Notes Template Development/O=Lotus Notes
  1061. PURSAFO
  1062. Fde!f^^
  1063. $TITLE
  1064. $INFO
  1065. $WINDOWTITLE
  1066. $$ScriptName
  1067. $BODY
  1068. $ACTIONS
  1069. CN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=bogus/O=bogusCN=Harry Peebles/O=IrisCN=Stan Getz/O=bogusCN=Harry Peebles/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesWebLibs34Q1########################################
  1070. (web wInviteeResponses)wInviteeResponsesCDn
  1071. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
  1072. (wUpdateTasks)
  1073. CN=Harry Peebles/O=IrisCN=Lou Reed/O=bogusCN=Harry Peebles/O=IrisCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesfL3umda
  1074. ########################
  1075. (wPreferencesSave)
  1076. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  1077. (wPreferencesOpen)
  1078. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  1079. (wMemo)
  1080. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1081. ##########################################################
  1082. (wInviteeResponsesSave)
  1083. CN=Harry Peebles/O=IrisCN=Lou Reed/O=bogusCN=Harry Peebles/O=IrisCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesfL3u
  1084. ##############
  1085. (wInviteeResponsesOpen)
  1086. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  1087. (wCommand)
  1088. EH4fL3u
  1089. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
  1090. '++LotusScript Development Environment:2:5:(Options):0:74
  1091. Option Public
  1092. Use "ObjectVariables"
  1093. '++LotusScript Development Environment:2:5:(Forward):0:1
  1094. Declare Sub wNotifyUser(msg As String)
  1095. Declare Function wGetCalendarProfile
  1096. Declare Sub wGetOrMakeCalendarProfile
  1097. Declare Sub wInstantiateObjectVariables
  1098. Declare Sub wMessagePageHeader
  1099. Declare Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  1100. Declare Function GetDBPath
  1101. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1102. '++LotusScript Development Environment:2:2:wNotifyUser:1:8
  1103. Sub wNotifyUser(msg As String)
  1104.      note.WebMessageString = note.WebMessageString(0) & msg & "<BR><BR>"
  1105. End Sub
  1106. '++LotusScript Development Environment:2:1:wGetCalendarProfile:1:8
  1107. Function wGetCalendarProfile
  1108.      On Error Resume Next
  1109.      Set profile = db.GetProfileDocument("CalendarProfile")
  1110.      If profile Is Nothing Then Goto ErrorRoutine
  1111.      
  1112.      On Error Goto ErrorRoutine
  1113.      If profile.Owner(0) = "" Then Goto ErrorRoutine
  1114.      Owner = profile.Owner(0)
  1115.      wGetCalendarProfile = True
  1116.      Exit Function
  1117.      
  1118. ErrorRoutine:
  1119.      wGetCalendarProfile = False
  1120. End Function
  1121. '++LotusScript Development Environment:2:2:wGetOrMakeCalendarProfile:1:8
  1122. Sub wGetOrMakeCalendarProfile
  1123.      Call GetCalendarOwner()
  1124.      If Not (profile.HasItem("wEnableNABs")) Then Call wInitDefaultSettings()
  1125. End Sub
  1126. '++LotusScript Development Environment:2:2:wInstantiateObjectVariables:1:8
  1127. Sub wInstantiateObjectVariables
  1128.      Set session = New NotesSession
  1129.      Set db = session.CurrentDatabase
  1130.      Set note = session.DocumentContext
  1131. End Sub
  1132. '++LotusScript Development Environment:2:2:wMessagePageHeader:1:8
  1133. Sub wMessagePageHeader
  1134.      'Create the action bar
  1135.      Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>| 
  1136.      Print |<TR VALIGN=middle BGCOLOR="C0C0C0">| 
  1137.      Print |<TD><A HREF="| & PathAndName$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>| 
  1138.      Print |<TD><A HREF="| & PathAndName$ & |($Calendar)?OpenView&Grid=| & profile.wCalGridType(0) & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>| 
  1139.      Print |<TD><A HREF="| & PathAndName$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>| 
  1140.      Print |<TD><A HREF="| & PathAndName$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>| 
  1141.      Print |<TD><A HREF="| & PathAndName$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD>| 
  1142.      Print |</TR></TABLE><HR>|
  1143. End Sub
  1144. '++LotusScript Development Environment:2:2:CopyProfileValues:1:8
  1145. Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  1146.      Dim x As Integer
  1147.      Dim item As NotesItem
  1148.      
  1149.      
  1150.      noteDest.Owner = noteSrc.Owner(0)
  1151.      noteDest.DefaultDuration = noteSrc.DefaultDuration(0)
  1152.      noteDest.CalEntryType = noteSrc.CalEntryType(0)
  1153.      
  1154.      If (noteSrc.HasItem("AutoRemoveFromInbox")) Then 
  1155.           noteDest.AutoRemoveFromInbox = noteSrc.AutoRemoveFromInbox(0)
  1156.      Else
  1157.           noteDest.AutoRemoveFromInbox = "0"
  1158.      End If
  1159.      
  1160.      If (noteSrc.HasItem("CalEntryHide")) Then 
  1161.           noteDest.CalEntryHide = noteSrc.CalEntryHide(0)
  1162.      Else
  1163.           noteDest.CalEntryHide = "0"
  1164.      End If
  1165.      
  1166.      noteDest.NotesNab1 = noteSrc.NotesNab1(0)
  1167.      noteDest.NotesNab2 = noteSrc.NotesNab2(0)
  1168.      noteDest.NotesNab3 = noteSrc.NotesNab3(0)
  1169.      noteDest.NotesNab4 = noteSrc.NotesNab4(0)
  1170. %REM     
  1171.      Msgbox notesrc.AutoRemoveFrominbox(0)
  1172.      Msgbox noteSrc.CalEntryHide(0)
  1173.      
  1174.      Msgbox notesrc.Sunday(0)
  1175.      Msgbox notesrc.Monday(0)
  1176.      Msgbox notesrc.Tuesday(0)
  1177.      Msgbox notesrc.Wednesday(0)
  1178.      Msgbox notesrc.Thursday(0)
  1179.      Msgbox notesrc.Friday(0)
  1180.      Msgbox notesrc.Saturday(0)
  1181. %END REM
  1182.      noteDest.Sunday = noteSrc.sunday(0)
  1183.      noteDest.Monday = noteSrc.monday(0)
  1184.      noteDest.tuesday = noteSrc.Tuesday(0)
  1185.      noteDest.Wednesday = noteSrc.Wednesday(0)
  1186.      noteDest.Thursday = noteSrc.Thursday(0)
  1187.      noteDest.Friday = noteSrc.Friday(0)
  1188.      noteDest.Saturday = noteSrc.Saturday(0)
  1189.      
  1190.      For x = 1 To 7
  1191.           Set item = noteSrc.GetFirstItem("$Times" & x)
  1192.           If Not(item Is Nothing) Then 
  1193.                Call noteDest.RemoveItem(item.name)
  1194.                Call item.copyitemtodocument(noteDest,"")
  1195.           End If               
  1196.      Next
  1197.      
  1198. End Sub
  1199. '++LotusScript Development Environment:2:1:GetDBPath:1:8
  1200. Function GetDBPath
  1201.         'check to see if the database is in a directory
  1202.      If Instr(db.filepath,"\") Then
  1203.           getdbpath = Left$(db.filepath, Instr(db.filepath,"\")-1) + "/" + Right$(db.filepath,Len(db.filepath)-Instr(db.filepath,"\"))
  1204.      Elseif Instr(db.filepath, " ") Then
  1205.           tmpstring$ = db.filepath
  1206.           pos% = 1
  1207.           While Instr(pos%, tmpstring$, " ") > 0 
  1208.                'extract to the space
  1209.                posofspace% = Instr(pos%, tmpstring$, " ")
  1210.                'replace the space with a + sign
  1211.                tmpstring$ = Left$(tmpstring$, posofspace% -1 )+"+"+Right$(tmpstring$, (Len(tmpstring$)-posofspace%))
  1212.                pos% = posofspace%+1
  1213.           Wend
  1214.           getdbpath = tmpstring$
  1215.      Else
  1216.           getdbpath = db.filepath
  1217.      End If
  1218.      
  1219. End Function
  1220. O=Lotus Notes
  1221. O=Lotus Notes
  1222. PURSAFO
  1223. |.:#U
  1224. O=Lotus Notes
  1225. CN=Lotus Notes Template Development/O=Lotus Notes
  1226. PURSAFO
  1227. Fde!f^^
  1228. Y.{G6
  1229. $ScriptLib
  1230. $ScriptLib_O
  1231. $TITLE
  1232. $Flags
  1233. $PublicAccess
  1234. Started running agent 'wAppointmentOpen' on 08/03/97 06:58:01 PM
  1235. Ran LotusScript code
  1236. Done running agent 'wAppointmentOpen' on 08/03/97 06:58:02 PM
  1237.  wInviteeResponses
  1238. Hidden: 
  1239. wInviteeResponsesOpen
  1240. $$QueryOpenAgent
  1241. wInviteeResponsesSave
  1242. $$QuerySaveAgent
  1243. Path_Info
  1244. Path_Info
  1245. Query_String
  1246. Query_String
  1247. MailOptions
  1248. SaveOptions
  1249.     Hidden w/ HTML tag in help description field:
  1250. SequenceNum[<TYPE=hidden >]
  1251. Subject[<TYPE=hidden >]
  1252. Room[<TYPE=hidden >]
  1253. Broadcast[<TYPE=hidden >]
  1254. StartDate[<TYPE=hidden >]
  1255. StartDateTime[<TYPE=hidden >]
  1256. EndDateTime[<TYPE=hidden >]
  1257. RequiredAttendees[<TYPE=hidden >]
  1258. OptionalAttendees[<TYPE=hidden >]
  1259. tmpDocUNID[<TYPE=hidden >]
  1260. Body[<TYPE=hidden >]
  1261. tmpAccepted[<TYPE=hidden >]
  1262. tmpCounter[<TYPE=hidden >]
  1263. tmpDelegated[<TYPE=hidden >]
  1264. tmpDelegee[<TYPE=hidden >]
  1265. tmpDeclined[<TYPE=hidden >]
  1266. tmpWaiting[<TYPE=hidden >]
  1267. tmpUnivited[<TYPE=hidden >]
  1268.     0S0E
  1269.     Send Notification
  1270.     [<b>  </b>]
  1271. tmpNoticeType
  1272. Confirm Meeting|1Cancel Meeting|0
  1273.     [<BR>]Subject: 
  1274. dispSubject
  1275. dispSubject
  1276.     [<BR>
  1277.  
  1278.     <BR>]
  1279. [<b>  </b>]
  1280. Accepted
  1281. [<b>  </b>]
  1282. Counter proposed
  1283. dispAccepted
  1284. dispAccepted
  1285. [<BR>]
  1286. dispCounter
  1287. dispCounter
  1288. [<b>  </b>]
  1289. Delegated
  1290. [<b>  </b>]
  1291. Declined
  1292. dispDelegated
  1293. dispDelegated
  1294. [<BR>]
  1295. dispDeclined
  1296. dispDeclined
  1297. [<b>  </b>]
  1298. No response
  1299. [<b>  </b>]
  1300. Removed
  1301. dispWaiting
  1302. dispWaiting
  1303. [<BR>]
  1304. dispUnivited
  1305. dispUnivited
  1306. tmpResAccepted
  1307. tmpResDeclined
  1308. tmpResWaiting
  1309.     1S2S3S4S5S6S7S8S9S10S
  1310. dispResAccepted
  1311. dispResDeclined
  1312. dispResWaiting
  1313.     1S2S3S4S5S6S7S8S9S10S
  1314.     Rooms/Resources
  1315. Reserved
  1316. Unavailable
  1317. dispResAccepted
  1318. dispResAccepted
  1319. [<BR>]
  1320. dispResDeclined
  1321. dispResDeclined
  1322. No response
  1323. dispResWaiting
  1324. dispResWaiting
  1325. [<BR>]
  1326. Categori_zeK
  1327. _Edit Document
  1328. Send Docu_ment
  1329. _Forward
  1330. _Move To Folder...
  1331. _Remove From FolderK
  1332. In Box*
  1333. ($InBox)
  1334. Calendar
  1335.     1S2S8S12S14S
  1336. path"
  1337. /($Calendar)?OpenView&Grid=
  1338. CalendarProfile
  1339. wCalGridType
  1340.     0R3S4S5S6S7S8S12S
  1341. Meetings.
  1342. ($Meetings)
  1343. To Do
  1344. ($ToDo)
  1345. All Views
  1346. O=Lotus Notes
  1347. O=Lotus Notes
  1348. PURSAFO
  1349. |.:#U
  1350. O=Lotus Notes
  1351. CN=Lotus Notes Template Development/O=Lotus Notes
  1352. PURSAFO
  1353. Fde!f^^
  1354. $TITLE
  1355. $INFO
  1356. $$ScriptName
  1357. StartDate
  1358. StartDateTime
  1359. EndDateTime
  1360. $BODY
  1361. $ACTIONS
  1362. '++LotusScript Development Environment:2:5:(Options):0:74
  1363. Option Public
  1364. Use "SharedTaskLibrary"
  1365. '++LotusScript Development Environment:2:5:(Forward):0:1
  1366. Declare Sub Initialize
  1367. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1368. '++LotusScript Development Environment:2:2:Initialize:1:10
  1369. Sub Initialize
  1370.      IsWebClient = True
  1371.      Call UpdateTasks
  1372.      Set note = s.DocumentContext
  1373.      pos% = Instr (note.Path_Info(0), db.FileName)
  1374.      If pos% = 0 Then 
  1375.           Print "The Tasks have been updated.<BR>Refresh the Task view to see the results."
  1376.      Else
  1377.           Print "[" & Left$(note.Path_Info(0), pos% + Len (db.FileName)) & "($ToDo)]"
  1378.      End If
  1379. End Sub
  1380. O=Lotus Notes
  1381. O=Lotus Notes
  1382. PURSAFO
  1383. |.:#U
  1384. O=Lotus Notes
  1385. CN=Lotus Notes Template Development/O=Lotus Notes
  1386. PURSAFO
  1387. Fde!f^^
  1388. $TITLE
  1389. $AssistType
  1390. $AssistLastRun
  1391. $AssistDocCount
  1392. $AssistFlags
  1393. $AssistTrigger
  1394. $AssistInfo
  1395. $AssistQuery
  1396. $AssistAction
  1397. $AssistAction_Ex
  1398. Started running agent 'wTask' on 07/27/97 10:42:02 PM
  1399. Ran LotusScript code
  1400. Done running agent 'wTask' on 07/27/97 10:42:03 PM
  1401. '++LotusScript Development Environment:2:5:(Options):0:74
  1402. Option Public
  1403. Use "WebLib"
  1404. '++LotusScript Development Environment:2:5:(Forward):0:1
  1405. Declare Sub Postopen(IsNewDoc As Variant) 
  1406. Declare Sub Querysave(Continue As Variant)
  1407. Declare Sub Queryclose(Continue As Variant)
  1408. Declare Sub CheckDueDate
  1409. Declare Sub CheckStartDate
  1410. Declare Sub SaveNotification(ReplyType, MessageText, NewState, ViewIcon)
  1411. Declare Sub Initialize
  1412. Declare Sub Postrecalc(Continue As Variant)
  1413. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1414. Dim newnote As NotesDocument
  1415. Dim DoNotClose As Variant
  1416. Dim ContinueSave As Variant
  1417. Dim TaskReply As Variant
  1418. Dim maildoc As NotesDocument
  1419. Dim rtitem As NotesRichTextItem
  1420. Dim dt As NotesDateTime
  1421. Dim dt2 As NotesDateTime
  1422. Dim Action As Variant
  1423. Dim CommentQuery As Variant
  1424. Dim StartDate As Variant
  1425. Dim DueDate As Variant
  1426. Dim Subject As Variant
  1427. Dim NewSubject As String
  1428. Dim ComposeReply As Variant
  1429. Dim ConvertedTask As Variant
  1430. Dim NotifyAssignee As Variant
  1431. '++LotusScript Development Environment:2:2:Postopen:1:8
  1432. Sub Postopen(IsNewDoc As Variant) 
  1433.      If IsNewDoc Then
  1434.           Call note.ReplaceItemValue("_ViewIcon", 168)
  1435.           note.AssignState = 0
  1436.           note.ExcludeFromView = "D"
  1437.           note.OrgTable = "T0"
  1438.      End If
  1439.      
  1440.      If note.ReassignTask(0) = "1" Then
  1441.           'this mean that it is now assigned to myself
  1442.           note.AssignState = 0
  1443.           note.RemoveItem("AssignedTo")
  1444.           note.RemoveItem("SendTo")
  1445.           note.RemoveItem("CopyTo")
  1446.      End If
  1447.      
  1448.      If Not(note.HasItem("DueState")) Then note.DueState = 1
  1449. End Sub
  1450. '++LotusScript Development Environment:2:2:Querysave:1:8
  1451. Sub Querysave(Continue As Variant)
  1452.      Set dt = New NotesDateTime("")
  1453.      dt.SetNow         
  1454.      
  1455.      Action = note.tmpAction(0)
  1456.      Select Case Action
  1457.      Case "Complete"
  1458. 'AssignState = 0 if assigned to self, 1 if assigned to others but not sent, 2 if assigned and sent, and 9 if complete.
  1459.           If note.HasItem(Principal) Then
  1460.                FromName = note.Principal(0)
  1461.           Else
  1462.                FromName = note.From(0)
  1463.           End If          
  1464.           oldAssignState = note.AssignState(0)
  1465.           Subject = note.Subject(0)
  1466.           NewSubject = "Task:  " & Subject & " is complete as of " & dt.LSLocalTime
  1467.           
  1468.           Select Case oldAssignState
  1469.           Case 0, 1 '0=assigned to yourself.  1=assigned to someone else but not sent
  1470.                Gosub CompleteThisTask
  1471.           Case 8, 9 '9=complete
  1472.                wNotifyUser Subject & " is already closed."
  1473.           Case Else 'it was assigned to someone other that the originator
  1474.                If (NotifyAssignee ) Then
  1475.                     Call SaveNotification("completion", "I have completed task: ", 9, 82)
  1476.                Else
  1477.                     note.AssignState = 9
  1478.                     note.DueState = 9
  1479.                     Call note.ReplaceItemValue("_ViewIcon", 82)
  1480.                End If
  1481.                continue = False
  1482.                Exit Sub
  1483.           End Select
  1484.           CloseDoc = True
  1485.      Case "Reassign"
  1486.           Subject = note.Subject(0)
  1487.           NewSubject = "Please reassign Task:  " & Subject
  1488.           Call SaveNotification("reassignment", "Please reassign this task: ", 8, 81)
  1489.           continue = False
  1490.           Exit Sub
  1491.      Case Else
  1492.           If Action = "Send" Then
  1493.                note.MailOptions = "1"
  1494.           End If
  1495. 'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future, 8=Rejected, 9=Complete
  1496. 'If it is complete we do not want to change it's DueState          
  1497.           If note.DueState(0) <> 9 Then
  1498.                DueDate = note.DueDateTime
  1499.                StartDate = note.StartDateTime
  1500.                If StartDate(0) = "" Then
  1501.                     If DueDate(0) = "" Then
  1502.                          note.DueState = 1
  1503.                     Else
  1504.                          CheckDueDate
  1505.                     End If
  1506.                Else
  1507.                     CheckStartDate
  1508.                     DueState = note.DueState
  1509.                     If DueDate(0) <> "" And DueState(0) <> 2 Then CheckDueDate
  1510.                End If
  1511.           End If
  1512.      End Select
  1513.      
  1514.      AssignState = note.AssignState
  1515.      SendTo = note.SendTo
  1516.      If AssignState(0) = 1 And SendTo(0) = "" Then note.AssignState = 0
  1517.      
  1518. '     note.RemoveItem("tmpAction")
  1519. '     note.RemoveItem("tmpSenderTag")
  1520.      If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
  1521.      
  1522.      Exit Sub
  1523.      
  1524. CompleteThisTask:
  1525.      note.DueState = 9
  1526.      note.AssignState = 9
  1527.      note.CompletedDateTime = dt.LSLocalTime
  1528.      Call note.ReplaceItemValue("_ViewIcon", 82)
  1529.      Return
  1530.      
  1531. End Sub
  1532. '++LotusScript Development Environment:2:2:Queryclose:1:8
  1533. Sub Queryclose(Continue As Variant)
  1534.      AssignState = note.AssignState
  1535.      If AssignState(0) = 1 Then
  1536.           note.AssignState = 2
  1537.           note.MailOptions = "1"
  1538.           note.AssignedTo = note.SendTo
  1539.      End If
  1540. End Sub
  1541. '++LotusScript Development Environment:2:2:CheckDueDate:1:8
  1542. Sub CheckDueDate
  1543. 'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future               
  1544.      Set dt2 = New NotesDateTime(DueDate(0))
  1545.      If dt.TimeDifference(dt2) > 0 Then 
  1546.           note.DueState = 0
  1547.      Else
  1548.           note.DueState = 1
  1549.      End If
  1550. End Sub
  1551. '++LotusScript Development Environment:2:2:CheckStartDate:1:8
  1552. Sub CheckStartDate
  1553. 'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future               
  1554.      Set dt2 = New NotesDateTime(StartDate(0))
  1555.      If dt.TimeDifference(dt2) < 0 Then 
  1556.           note.DueState = 2
  1557.      Else
  1558.           note.DueState = 1
  1559.      End If
  1560. End Sub
  1561. '++LotusScript Development Environment:2:2:SaveNotification:1:8
  1562. Sub SaveNotification(ReplyType, MessageText, NewState, ViewIcon)
  1563.      FromCommonName = Evaluate("@Name([CN]; Principal)", note)
  1564.      If FromCommonName(0) = "" Then FromCommonName = Evaluate("@Name([CN]; From)", note)
  1565.      
  1566.      Set maildoc = New NotesDocument(db)
  1567.      Set rtitem = New NotesRichTextItem(maildoc, "Body")
  1568.      
  1569.      Dim fromname As NotesName
  1570.      If note.HasItem("Principal") Then
  1571.           Set fromname = New NotesName( note.Principal(0) )
  1572.      Else
  1573.           Set fromname = New NotesName( note.From(0) )
  1574.      End If
  1575.      
  1576.      If note.HasItem("FromDomain") Then
  1577.           maildoc.SendTo = fromname.Abbreviated & " @ " & note.FromDomain(0)
  1578.      Else
  1579.           maildoc.SendTo = fromname.Abbreviated
  1580.      End If
  1581.      
  1582.      maildoc.Subject = NewSubject
  1583.      rtitem.AppendText(MessageText & Subject & ".  ")
  1584.      maildoc.Form = "Reply"
  1585.      maildoc.Principal = Owner
  1586.      maildoc.AssignState = NewState
  1587.      maildoc.DueState = NewState
  1588.      Call maildoc.AppendItemValue("_ViewIcon", ViewIcon)
  1589.      Call maildoc.MakeResponse(note)
  1590.      Call maildoc.Save (True, True, True)
  1591.      
  1592.      note.AssignState = NewState
  1593.      note.DueState = NewState
  1594.      Call note.ReplaceItemValue("_ViewIcon", ViewIcon)
  1595.      Exit Sub
  1596. End Sub
  1597. '++LotusScript Development Environment:2:2:Initialize:1:10
  1598. Sub Initialize
  1599. 'DueState: 0=Overdue, 1=Current, 2=Future, 8=Rejected, 9=Complete
  1600. 'AssignState: 0=not assigned, 1=assigned but not sent, 2=assigned and sent, 9=complete.
  1601.      IsWebClient = True
  1602.      On Error Goto ErrorRoutine
  1603.      
  1604.      Dim IsNewDoc As Variant
  1605.      Dim Continue As Variant
  1606.      Continue = True
  1607.      
  1608.      Call wInstantiateObjectVariables
  1609.      note.MailOptions = "0"
  1610.      
  1611.      If note.Query_String(0) = "EditDocument" Then
  1612.           IsNewDoc = False
  1613.      Else
  1614.           IsNewDoc = True
  1615.      End If
  1616.      
  1617.      note.WebMessageString = ""
  1618.      Call Postopen(IsNewDoc)
  1619.      Call Postrecalc(Continue)
  1620.      
  1621.      NotifyAssignee = False
  1622.      
  1623.      If note.AssignState(0) = 0 Then
  1624.           If note.SoloTaskAction(0) = "1" Then
  1625.                note.tmpAction = "Complete"
  1626.           Else
  1627.                If (note.SendTo(0) <> "") Then
  1628.                     note.tmpAction = "Send"
  1629.                     note.AssignState = 1
  1630.                     Dim datetime As New NotesDateTime( "Today" )
  1631.                     note.PostedDate = datetime.LocalTime
  1632.                Else
  1633.                     note.tmpAction = ""
  1634.                End If
  1635.           End If
  1636.      Else
  1637.           If (note.AssignedTaskAction(0) = "1") Then
  1638.                note.tmpAction = "Complete"
  1639.           Else
  1640.                If (note.AssignedTaskAction(0) = "2") Then 
  1641.                     note.tmpAction = "Complete"
  1642.                     NotifyAssignee = True
  1643.                Else
  1644.                     If (note.AssignedTaskAction(0) = "3") Then 
  1645.                          note.tmpAction = "Reassign"
  1646.                          NotifyAssignee = True
  1647.                     Else
  1648.                          note.tmpAction = ""
  1649.                     End If
  1650.                End If
  1651.           End If
  1652.           If (note.tmpOutOfInBox(0) = "1") Then
  1653.                note.RemoveFromFolder("($InBox)")
  1654.           End If
  1655.      End If
  1656.      
  1657.      If Continue = True Then Call Querysave(Continue)
  1658.      If Continue = True Then Call Queryclose(Continue) 
  1659.      
  1660.      pos% = Instr (note.Path_Info(0), db.FileName)
  1661.      If pos% <> 0 Then 
  1662.           FilePathName$ = Left$(note.Path_Info(0), pos% + Len (db.FileName))
  1663.           If (note.WebMessageString(0) <> "") Then
  1664.                Call wGetOrMakeCalendarProfile
  1665.                'Create the action bar
  1666.                Print |<BODY TEXT="000000" BGCOLOR="ffffff">| 
  1667.                Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>| 
  1668.                Print |<TR VALIGN=middle BGCOLOR="C0C0C0">| 
  1669.                Print |<TD><A HREF="| & FilePathName$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>| 
  1670.                Print |<TD><A HREF="| & FilePathName$ & |($Calendar)?OpenView&Grid=| & profile.wCalGridType(0) & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>| 
  1671.                Print |<TD><A HREF="| & FilePathName$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>| 
  1672.                Print |<TD><A HREF="| & FilePathName$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>| 
  1673.                Print |<TD><A HREF="| & FilePathName$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD></TR>| 
  1674.                Print |</TABLE><HR><P><B>| & note.WebMessageString(0) 
  1675.           Else 
  1676.                If NotifyAssignee Then
  1677.                     Print "[" & FilePathName$ & "($All)/" & maildoc.UniversalID &  "?EditDocument&Task]"
  1678.                Else
  1679.                     Print "[" & FilePathName$ & "($ToDo)?OpenView]"
  1680.                End If
  1681.           End If
  1682.      Else
  1683.           'Should never get here ...
  1684.           If (note.WebMessageString(0) <> "") Then
  1685.                Print note.WebMessageString(0)
  1686.           Else 
  1687.                Print "The document has been saved."
  1688.           End If
  1689.      End If
  1690.      
  1691.      note.Form = "Task"
  1692.      Call MarkTempFields( note )
  1693.      If (note.AssignedTaskAction(0) = "") Then
  1694.           note.RemoveItem("AssignedTaskAction")
  1695.      End If
  1696.      note.RemoveItem("WebMessageString")
  1697.      Exit Sub
  1698.      
  1699. ErrorRoutine:
  1700.      Print  Error & " (wTask)"
  1701.      Exit Sub
  1702. End Sub
  1703. '++LotusScript Development Environment:2:2:Postrecalc:1:8
  1704. Sub Postrecalc(Continue As Variant)
  1705.      If note.StartDateTime(0) = "" Or note.DueDateTime(0) = "" Then Exit Sub
  1706.      
  1707.      Set dt = New NotesDateTime(note.StartDateTime(0))
  1708.      Set dt2 = New NotesDateTime(note.DueDateTime(0))
  1709.      
  1710.      If dt.TimeDifference(dt2) > 0 Then 
  1711.           wNotifyUser "The Due Date must be greater than the Start Date. Please re-edit this document."
  1712.           Continue = False
  1713.      End If
  1714. End Sub
  1715. `    `    @
  1716. G0    }`
  1717.     }4    #1
  1718. Gp    8"
  1719. Principal
  1720. O=Lotus Notes
  1721. O=Lotus Notes
  1722. PURSAFO
  1723. |.:#U
  1724. O=Lotus Notes
  1725. CN=Lotus Notes Template Development/O=Lotus Notes
  1726. PURSAFO
  1727. Fde!f^^
  1728. $TITLE
  1729. $AssistType
  1730. $AssistLastRun
  1731. $AssistDocCount
  1732. $AssistFlags
  1733. $AssistTrigger
  1734. $AssistInfo
  1735. $AssistQuery
  1736. $AssistAction
  1737. $AssistAction_Ex
  1738. Started running agent 'wPreferencesSave' on 07/13/97 12:29:29 PM
  1739. Ran LotusScript code
  1740. Done running agent 'wPreferencesSave' on 07/13/97 12:29:30 PM
  1741. '++LotusScript Development Environment:2:5:(Options):0:74
  1742. Option Public 
  1743. Use "WebLib" 
  1744. '++LotusScript Development Environment:2:5:(Forward):0:1
  1745. Declare Sub Initialize
  1746. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1747. '++LotusScript Development Environment:2:2:Initialize:1:10
  1748. Sub Initialize
  1749.      IsWebClient = True
  1750.      Call wInstantiateObjectVariables
  1751.      Call wGetOrMakeCalendarProfile
  1752.      
  1753.      On Error Goto ErrorRoutine
  1754.      
  1755.      Call CopyProfileValues(note, profile)
  1756.      profile.wDefaultMailOpt = note.DefaultMailOpt
  1757.      profile.wEnableTrashIcon = note.EnableTrashIcon
  1758.      profile.wCalGridType = note.CalGridType
  1759.      
  1760.      profile.wEnableNABs = note.EnableNABLinks 
  1761.      profile.wNAB1 = note.LinkName1 
  1762.      profile.wNAB2 = note.LinkName2     
  1763.      profile.wNAB3 = note.LinkName3 
  1764.      profile.wNAB4 = note.LinkName4 
  1765.      profile.wNABurl1 = note.URL1    
  1766.      profile.wNABurl2 = note.URL2 
  1767.      profile.wNABurl3 = note.URL3 
  1768.      profile.wNABurl4 = note.URL4  
  1769.      
  1770.      profile.wEnableFavorites = note.EnableFavoriteLinks  
  1771.      profile.wFavorite1 = note.FolderName1  
  1772.      profile.wFavorite2 = note.FolderName2 
  1773.      profile.wFavorite3= note.FolderName3 
  1774.      profile.wFavorite4 = note.FolderName4
  1775.      profile.wFavorite5= note.FolderName5 
  1776.      profile.wFavorite6 = note.FolderName6
  1777.      profile.wFavoriteURL1 = note.fURL1
  1778.      profile.wFavoriteURL2 = note.fURL2
  1779.      profile.wFavoriteURL3 = note.fURL3 
  1780.      profile.wFavoriteURL4 = note.fURL4
  1781.      profile.wFavoriteURL5 = note.fURL5
  1782.      profile.wFavoriteURL6 = note.fURL6
  1783.      profile.wIsFolder1 = note.IsFolder1
  1784.      profile.wIsFolder2 = note.IsFolder2 
  1785.      profile.wIsFolder3 = note.IsFolder3
  1786.      profile.wIsFolder4 = note.IsFolder4
  1787.      profile.wIsFolder5 = note.IsFolder5
  1788.      profile.wIsFolder6 = note.IsFolder6
  1789.      
  1790.      Call profile.Save(True,True,True)
  1791.      
  1792.      pos% = Instr (note.Path_Info(0), db.FileName)
  1793.      If pos% = 0 Then 
  1794.           Print "The preference settings have been saved."
  1795.      Else
  1796.           Print "[" & Left$(note.Path_Info(0), pos% + Len (db.FileName)) & "($Inbox)]"
  1797.      End If
  1798.      Exit Sub
  1799.      
  1800. ErrorRoutine:
  1801.      Print Error & " (wPreferences)" 
  1802.      Exit Sub
  1803. End Sub
  1804. }<    Kd
  1805. O=Lotus Notes
  1806. O=Lotus Notes
  1807. PURSAFO
  1808. |.:#U
  1809. O=Lotus Notes
  1810. CN=Lotus Notes Template Development/O=Lotus Notes
  1811. PURSAFO
  1812. Fde!f^^
  1813. $TITLE
  1814. $AssistType
  1815. $AssistLastRun
  1816. $AssistDocCount
  1817. $AssistFlags
  1818. $AssistTrigger
  1819. $AssistInfo
  1820. $AssistQuery
  1821. $AssistAction
  1822. $AssistAction_Ex
  1823. Started running agent 'wPreferencesOpen' on 07/14/97 05:54:26 PM
  1824. Ran LotusScript code
  1825. Done running agent 'wPreferencesOpen' on 07/14/97 05:54:27 PM
  1826. '++LotusScript Development Environment:2:5:(Options):0:74
  1827. Option Public 
  1828. Use "WebLib"
  1829. '++LotusScript Development Environment:2:5:(Forward):0:1
  1830. Declare Sub Initialize
  1831. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1832. '++LotusScript Development Environment:2:2:Initialize:1:10
  1833. Sub Initialize
  1834.      IsWebClient = True
  1835.      Call wInstantiateObjectVariables
  1836.      Call wGetOrMakeCalendarProfile
  1837.      
  1838.      On Error Goto ErrorRoutine
  1839.      
  1840.      Call CopyProfileValues(profile, note)    
  1841.      note.DefaultMailOpt = profile.wDefaultMailOpt
  1842.      note.EnableTrashIcon = profile.wEnableTrashIcon
  1843.      note.CalGridType = profile.wCalGridType
  1844.      
  1845.      note.EnableNABLinks = profile.wEnableNABs
  1846.      note.LinkName1 = profile.wNAB1
  1847.      note.LinkName2 = profile.wNAB2     
  1848.      note.LinkName3 = profile.wNAB3
  1849.      note.LinkName4 = profile.wNAB4
  1850.      note.URL1 = profile.wNABurl1
  1851.      note.URL2 = profile.wNABurl2
  1852.      note.URL3 = profile.wNABurl3
  1853.      note.URL4 = profile.wNABurl4
  1854.      
  1855.      note.EnableFavoriteLinks = profile.wEnableFavorites
  1856.      note.FolderName1 = profile.wFavorite1
  1857.      note.FolderName2 = profile.wFavorite2
  1858.      note.FolderName3 = profile.wFavorite3
  1859.      note.FolderName4 = profile.wFavorite4
  1860.      note.FolderName5 = profile.wFavorite5
  1861.      note.FolderName6 = profile.wFavorite6
  1862.      note.fURL1 = profile.wFavoriteURL1
  1863.      note.fURL2 = profile.wFavoriteURL2
  1864.      note.fURL3 = profile.wFavoriteURL3
  1865.      note.fURL4 = profile.wFavoriteURL4
  1866.      note.fURL5 = profile.wFavoriteURL5
  1867.      note.fURL6 = profile.wFavoriteURL6
  1868.      note.IsFolder1 = profile.wIsFolder1
  1869.      note.IsFolder2 = profile.wIsFolder2
  1870.      note.IsFolder3 = profile.wIsFolder3
  1871.      note.IsFolder4 = profile.wIsFolder4
  1872.      note.IsFolder5 = profile.wIsFolder5
  1873.      note.IsFolder6 = profile.wIsFolder6
  1874.      Exit Sub
  1875.      
  1876. ErrorRoutine:
  1877.      Messagebox Error & " (wPreferences)" 
  1878.      Exit Sub
  1879. End Sub
  1880. O=Lotus Notes
  1881. O=Lotus Notes
  1882. PURSAFO
  1883. |.:#U
  1884. O=Lotus Notes
  1885. CN=Lotus Notes Template Development/O=Lotus Notes
  1886. PURSAFO
  1887. Fde!f^^
  1888. $TITLE
  1889. $AssistType
  1890. $AssistLastRun
  1891. $AssistDocCount
  1892. $AssistFlags
  1893. $AssistTrigger
  1894. $AssistInfo
  1895. $AssistQuery
  1896. $AssistAction
  1897. $AssistAction_Ex
  1898. Started running agent 'wMemo' on 07/27/97 09:40:58 PM
  1899. Ran LotusScript code
  1900. Done running agent 'wMemo' on 07/27/97 09:40:59 PM
  1901. '++LotusScript Development Environment:2:5:(Options):0:74
  1902. Option Public
  1903. Use "WebLib"
  1904. '++LotusScript Development Environment:2:5:(Forward):0:1
  1905. Declare Sub Initialize
  1906. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1907. '++LotusScript Development Environment:2:2:Initialize:1:10
  1908. Sub Initialize
  1909.      
  1910.      IsWebClient = True
  1911.      Call wInstantiateObjectVariables
  1912.      
  1913.      If False = wGetCalendarProfile Then Goto MustSetCalendarProfile
  1914.      
  1915.      On Error Goto ErrorRoutine
  1916.      
  1917.      If (note.HasItem("MailSavedForm")) Then
  1918.           'we're doing a resend, which could be any kind of form
  1919.           optionValue$ = "1"
  1920.           note.Form = note.MailSavedForm
  1921.           note.RemoveItem("MailSavedForm")
  1922.           note.From = note.tmpFrom
  1923.      Else
  1924.           optionValue$ = note.tmpSendOptions(0)
  1925.           Select Case note.Form(0)
  1926.           Case "Memo"
  1927.                'cool
  1928.           Case "Reply"
  1929.                'cool
  1930.           Case "Phone Message"
  1931.                'cool
  1932.           Case Else
  1933.                'we don't know what kind of form this is
  1934.                optionValue$ = "2"
  1935.           End Select
  1936.      End If
  1937.      
  1938.      Dim datetime As New NotesDateTime( "Today" )
  1939.      Call datetime.SetNow
  1940.      
  1941.      Select Case optionValue$
  1942.      Case "1"
  1943.      'Send Only
  1944.           Call note.RemoveItem("$AutoEditMode")
  1945.           note.PostedDate = datetime.LSLocalTime
  1946.           note.SaveOptions = "0"
  1947.           note.MailOptions = "1"
  1948.           note.From = note.tmpFrom
  1949.      Case "2"
  1950.      'Send & Save
  1951.           Call note.RemoveItem("$AutoEditMode")
  1952.           note.PostedDate = datetime.LSLocalTime
  1953.           note.SaveOptions = "1"
  1954.           note.MailOptions = "1"
  1955.           note.From = note.tmpFrom
  1956.      Case "3"
  1957.      'Save as draft
  1958.           Call note.AppendItemValue( "$AutoEditMode", "1" )
  1959.           Call note.RemoveItem("PostedDate")
  1960.           note.SaveOptions = "1"
  1961.           note.MailOptions = "0"
  1962.      End Select
  1963.      
  1964.      pathinfo$ = note.Path_Info(0)
  1965.      InfoPathPos% = Instr (pathinfo$, db.FileName)
  1966.      
  1967.      Dim view As NotesView
  1968.      targetview$ = ""
  1969.      targetviewargs$ = ""
  1970.      tmppathinfo$ = note.tmpPath_Info(0)
  1971.      fromstr$ = "&From="
  1972.      pos%  = Instr (tmppathinfo$, fromstr$)
  1973.      
  1974.      If pos% <> 0 Then
  1975.           'locate the view to return to, which was passed in as a URL argument 
  1976.           targetview$ = Right$ ( tmppathinfo$, Len( tmppathinfo$) - pos% - Len(fromstr$) + 1)
  1977.           pos%  = Instr (targetview$, "&")
  1978.           If (pos% <> 0) Then
  1979.                'locate any arguments to pass to that view
  1980.                targetviewargs$ = Right$ (targetview$, Len (targetview$) - pos% + 1)
  1981.                targetview$ = Left$ (targetview$, pos% - 1)
  1982.           End If
  1983.      Else
  1984.           'the view name was not passed as an argument, so pull it out of the URL if possible
  1985.           workstr$ = Right$ (pathinfo$, Len (pathinfo$) - (InfoPathPos% + Len (db.FileName)))
  1986.           pos%  = Instr (workstr$, "/")
  1987.           If (pos% <> 0 ) Then
  1988.                targetview$ = Left$ (workstr$, pos% - 1)
  1989.           Else
  1990.                pos%  = Instr (workstr$, "?")
  1991.                If (pos% <> 0 ) Then
  1992.                     targetview$ = Left$ (workstr$, pos% - 1)
  1993.                Else
  1994.                     targetview$ = workstr$
  1995.                End If
  1996.                'is it a view name?
  1997.                On Error Resume Next
  1998.                Set view  = notesDatabase.GetView( viewName$ )
  1999.                On Error Goto ErrorRoutine
  2000.                If (view Is Nothing) Then 
  2001.                     'or is it a unid?
  2002.                     ViewList = db.Views
  2003.                     found = False
  2004.                     Forall tView In ViewList
  2005.                          If (tView.UniversalID = targetview$) Then
  2006.                               found = True
  2007.                               Exit Forall
  2008.                          End If
  2009.                     End Forall
  2010.                     If Not found Then targetview$ = ""     'no
  2011.                End If
  2012.           End If
  2013.      End If
  2014.      
  2015.      If InfoPathPos% <> 0 Then 
  2016.           FileAndPath$ = Left$(pathinfo$, InfoPathPos% + Len (db.FileName))
  2017.           If note.tmpBackToTask(0) = "1" Then
  2018.                Print "[" & FileAndPath$ & "($ToDo)?OpenView]"
  2019.           Else
  2020.                If targetview$ <> "" Then
  2021.                     Print "[" & FileAndPath$ & targetview$ & "?OpenView" & targetviewargs$ & "]"
  2022.                Else
  2023.                     Print "[" & FileAndPath$ & "($All)?OpenView]"
  2024.                End If
  2025.           End If
  2026.      Else
  2027.           Print "The document has been processed."
  2028.      End If
  2029.      
  2030.      Call MarkTempFields( note )
  2031.      Exit Sub
  2032.      
  2033. MustSetCalendarProfile:
  2034.      Print "You must set your user preferences before you can mail documents."
  2035.      Print "Select your Preferences options from the bottom left corner of the In Box view."
  2036.      note.SaveOptions = "0"
  2037.      note.MailOptions = "0"
  2038.      Exit Sub
  2039.      
  2040. ErrorRoutine:
  2041.      Print Error & " (wMemo)"
  2042.      note.SaveOptions = "0"
  2043.      note.MailOptions = "0"
  2044.      Exit Sub
  2045. End Sub
  2046. O=Lotus Notes
  2047. O=Lotus Notes
  2048. PURSAFO
  2049. |.:#U
  2050. O=Lotus Notes
  2051. CN=Lotus Notes Template Development/O=Lotus Notes
  2052. PURSAFO
  2053. Fde!f^^
  2054.     ?WF=s$
  2055. $TITLE
  2056. $AssistType
  2057. $AssistLastRun
  2058. $AssistDocCount
  2059. $AssistFlags
  2060. $AssistTrigger
  2061. $AssistInfo
  2062. $AssistQuery
  2063. $AssistAction
  2064. $AssistAction_Ex
  2065. '++LotusScript Development Environment:2:5:(Options):0:74
  2066. Option Public
  2067. Use "WebLib"
  2068. Use "SharedWorkflowLibrary"
  2069. Use "AppointmentResponses"
  2070. '++LotusScript Development Environment:2:5:(Forward):0:1
  2071. Declare Sub Initialize
  2072. Declare Sub ConvertToNotice(Subject As String, NoticeType As String, ViewIcon As Integer, replaceNote As NotesDocument)
  2073. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2074. '++LotusScript Development Environment:2:2:Initialize:1:10
  2075. Sub Initialize
  2076.      
  2077.      IsWebClient = True
  2078.      Dim sendto() As Variant
  2079.      Dim names() As Variant   
  2080.      Dim CanMail As Integer
  2081.      
  2082.      Call wInstantiateObjectVariables
  2083.      Set profile = db.GetProfileDocument("CalendarProfile")     
  2084.      If profile.Owner(0) = "" Then 
  2085.           note.MailOptions = "0"
  2086.           note.SaveOptions = "0"
  2087.           Print "Document not processed. Set the mail file owner from the preferences page."
  2088.           Exit Sub
  2089.      End If
  2090.      Owner = profile.Owner(0)
  2091.      
  2092.      Dim targetNote As NotesDocument
  2093.      Set targetNote = db.GetDocumentByUNID( note.tmpDocUNID(0) )
  2094.      Call CreateInviteeTable(targetNote)
  2095.      
  2096. 'next, add the invitee responses
  2097.      Dim rtitem  As New NotesRichTextItem(note, "StatusUpdate")
  2098.      
  2099. 'The data is no longer in arrays due to the round trip thru HTML.
  2100. 'Therefore, we need to rebuild the "tmp" values.     
  2101.      Dim tempAccepted() As Variant
  2102.      Redim tempAccepted(1)
  2103.      tempAccepted(0) = ""
  2104.      note.tmpAccepted = Trim(note.tmpAccepted(0))
  2105.      If (note.tmpAccepted(0) <> "") Then
  2106.           i = 0
  2107.           workstr$ = note.tmpAccepted(0)
  2108.           pos% = Instr (workstr$, ";")
  2109.           While pos% <> 0 
  2110.                Redim Preserve tempAccepted(i + 1)
  2111.                tempAccepted(i) = Left$(workstr$, pos%-1)
  2112.                workstr$ = Right$(workstr$, Len (workstr$) - pos%)
  2113.                pos% = Instr (workstr$, ";")
  2114.                i = i + 1               
  2115.           Wend
  2116.           Redim Preserve tempAccepted(i + 1)
  2117.           tempAccepted(i) = workstr$
  2118.           note.tmpAccepted = tempAccepted
  2119.      End If
  2120.      
  2121.      Dim tempDeclined() As Variant
  2122.      Redim tempDeclined(1)
  2123.      tempDeclined(0) = ""
  2124.      note.tmpDeclined = Trim(note.tmpDeclined(0))
  2125.      If (note.tmpDeclined(0) <> "") Then
  2126.           i = 0
  2127.           workstr$ = note.tmpDeclined(0)
  2128.           pos% = Instr (workstr$, ";")
  2129.           While pos% <> 0 
  2130.                Redim Preserve tempDeclined(i + 1)
  2131.                tempDeclined(i) = Left$(workstr$, pos%-1)
  2132.                workstr$ = Right$(workstr$, Len (workstr$) - pos%)
  2133.                pos% = Instr (workstr$, ";")
  2134.                i = i + 1               
  2135.           Wend
  2136.           Redim Preserve tempDeclined(i + 1)
  2137.           tempDeclined(i) = workstr$
  2138.           note.tmpDeclined = tempDeclined
  2139.      End If
  2140.      
  2141.      Dim tempCounter() As Variant
  2142.      Redim tempCounter(1)
  2143.      tempCounter(0) = ""
  2144.      note.tmpCounter = Trim(note.tmpCounter(0))
  2145.      If (note.tmpCounter(0) <> "") Then
  2146.           i = 0
  2147.           workstr$ = note.tmpCounter(0)
  2148.           pos% = Instr (workstr$, ";")
  2149.           While pos% <> 0 
  2150.                Redim Preserve tempCounter(i + 1)
  2151.                tempCounter(i) = Left$(workstr$, pos%-1)
  2152.                workstr$ = Right$(workstr$, Len (workstr$) - pos%)
  2153.                pos% = Instr (workstr$, ";")
  2154.                i = i + 1               
  2155.           Wend
  2156.           Redim Preserve tempCounter(i + 1)
  2157.           tempCounter(i) = workstr$
  2158.           note.tmpCounter = tempCounter
  2159.      End If
  2160.      
  2161.      Dim tempDelegated() As Variant
  2162.      Dim tempDelegee() As Variant
  2163.      Redim tempDelegated(1)
  2164.      Redim tempDelegee(1)
  2165.      tempDelegated(0) = ""
  2166.      tempDelegee(0) = ""
  2167.      note.tmpDelegated = Trim(note.tmpDelegated(0))
  2168.      If (note.tmpDelegated(0) <> "") Then
  2169.           note.tmpDelegee = Trim(note.tmpDelegee(0))
  2170.           i = 0
  2171.           workstr$ = note.tmpDelegated(0)
  2172.           workstr2$ = note.tmpDelegee(0)
  2173.           pos% = Instr (workstr$, ";")
  2174.           pos2% = Instr (workstr2$, ";")
  2175.           While pos% <> 0 
  2176.                Redim Preserve tempDelegated(i + 1)
  2177.                Redim Preserve tempDelegee(i + 1)
  2178.                tempDelegated(i) = Left$(workstr$, pos%-1)
  2179.                tempDelegee(i) = Left$(workstr2$, pos2%-1)
  2180.                workstr$ = Right$(workstr$, Len (workstr$) - pos%)
  2181.                workstr2$ = Right$(workstr2$, Len (workstr2$) - pos2%)
  2182.                pos% = Instr (workstr$, ";")
  2183.                pos2% = Instr (workstr2$, ";")
  2184.                i = i + 1               
  2185.           Wend
  2186.           Redim Preserve tempDelegated(i + 1)
  2187.           Redim Preserve tempDelegee(i + 1)
  2188.           tempDelegated(i) = workstr$
  2189.           tempDelegee(i) = workstr2$
  2190.           note.tmpDelegated = tempDelegated
  2191.      End If
  2192.      note.tmpDelegee = tempDelegee
  2193.      
  2194.      Dim tempWaiting() As Variant
  2195.      Redim tempWaiting(1)
  2196.      tempWaiting(0) = ""
  2197.      note.tmpWaiting = Trim(note.tmpWaiting(0))
  2198.      If (note.tmpWaiting(0) <> "") Then
  2199.           i = 0
  2200.           workstr$ = note.tmpWaiting(0)
  2201.           pos% = Instr (workstr$, ";")
  2202.           While pos% <> 0 
  2203.                Redim Preserve tempWaiting(i + 1)
  2204.                tempWaiting(i) = Left$(workstr$, pos%-1)
  2205.                workstr$ = Right$(workstr$, Len (workstr$) - pos%)
  2206.                pos% = Instr (workstr$, ";")
  2207.                i = i + 1               
  2208.           Wend
  2209.           Redim Preserve tempWaiting(i + 1)
  2210.           tempWaiting(i) = workstr$
  2211.           note.tmpWaiting = tempWaiting
  2212.      End If
  2213.      
  2214.      Dim tempUninvited() As Variant
  2215.      Redim tempUninvited(1)
  2216.      tempUninvited(0) = ""
  2217.      note.tmpUninvited = Trim(note.tmpUninvited(0))
  2218.      If (note.tmpUninvited(0) <> "") Then
  2219.           i = 0
  2220.           workstr$ = note.tmpUninvited(0)
  2221.           pos% = Instr (workstr$, ";")
  2222.           While pos% <> 0 
  2223.                Redim Preserve tempUninvited(i + 1)
  2224.                tempUninvited(i) = Left$(workstr$, pos%-1)
  2225.                workstr$ = Right$(workstr$, Len (workstr$) - pos%)
  2226.                pos% = Instr (workstr$, ";")
  2227.                i = i + 1               
  2228.           Wend
  2229.           Redim Preserve tempUninvited(i + 1)
  2230.           tempUninvited(i) = workstr$
  2231.           note.tmpUninvited = tempUninvited
  2232.      End If
  2233.      
  2234. 'add all of the invitee status's to the rich text item     
  2235.      If (tempAccepted(0) <> "") Then
  2236.           Forall people In tempAccepted
  2237.                If people = "" Then Exit Forall
  2238.                Call rtitem.AppendText(Cstr(people) & " -> Accepted")
  2239.                Call rtitem.AddNewLine(1)          
  2240.           End Forall  
  2241.      End If
  2242.      If (tempDeclined(0) <> "") Then
  2243.           Forall people In tempDeclined
  2244.                If people = "" Then Exit Forall
  2245.                Call rtitem.AppendText(Cstr(people) & " -> Declined")
  2246.                Call rtitem.AddNewLine(1)          
  2247.           End Forall               
  2248.      End If
  2249.      If (tempCounter(0) <> "") Then
  2250.           Forall people In tempCounter
  2251.                If people = "" Then Exit Forall
  2252.                Call rtitem.AppendText(Cstr(people) & " -> Counter Proposed")
  2253.                Call rtitem.AddNewLine(1)          
  2254.           End Forall               
  2255.      End If
  2256.      If (tempDelegated(0) <> "") Then
  2257.           x = 0
  2258.           Forall people In tempDelegated
  2259.                If people = "" Then Exit Forall
  2260.                Call rtitem.AppendText(Cstr(people) & " -> Delegated to " & tempDelegee(x))
  2261.                x= x+1
  2262.                Call rtitem.AddNewLine(1)          
  2263.           End Forall               
  2264.      End If
  2265.      Call rtitem.AddNewLine(1)               
  2266. 'now, include the people who did not respond
  2267.      If (tempWaiting(0) <> "") Then          
  2268.           Call rtitem.AppendText("Waiting for reply:")
  2269.           Call rtitem.AddNewLine(1)
  2270.           Forall people In tempWaiting
  2271.                If people = "" Then Exit Forall
  2272.                Call rtitem.AppendText(Cstr(people))
  2273.                Call rtitem.AddNewLine(1)
  2274.           End Forall
  2275.      End If
  2276. 'include the people who were uninvited
  2277.      If (tempUninvited(0) <> "") Then
  2278.           Call rtitem.AppendText("Uninvited:")          
  2279.           Call rtitem.AddNewLine(1)
  2280.           Forall  people In tempUninvited
  2281.                If people = "" Then Exit Forall
  2282.                Call rtitem.AppendText(Cstr(people))
  2283.                Call rtitem.AddNewLine(1)
  2284.           End Forall          
  2285.      End If
  2286.      
  2287.      NamesToSend = Evaluate("@Trim(tmpAccepted:tmpWaiting)", note)
  2288.      If (NamesToSend(0) <> "") Then          
  2289.           CanMail = True
  2290.           Redim sendto(Ubound(NamesToSend))
  2291.           For i = 0 To Ubound(NamesToSend)
  2292.                sendto(i) = NamesToSend(i)
  2293.           Next
  2294.           i = i + 1          
  2295.      End If
  2296.      
  2297.      DelegeesToSend = Evaluate("@Trim(@Replace(tmpDelegee;tmpDeclined:tmpDelegated;""""))",note)
  2298.      If (DelegeesToSend(0) <> "") Then    
  2299.           CanMail = True          
  2300.           Redim Preserve sendto(i + Ubound(DelegeesToSend))
  2301.           For x = 0 To Ubound(DelegeesToSend)
  2302.                sendto(i) = DelegeesToSend(x)
  2303.                i = i + 1
  2304.           Next
  2305.      End If
  2306.      
  2307.      If CanMail Then
  2308.           'Prep the target addresses
  2309.           Redim names(Ubound(sendto))
  2310.           For i = 0 To Ubound(sendto)
  2311.                names(i) = GetInviteeMailAddress(Cstr(sendto(i)))
  2312.           Next
  2313.           
  2314.           If (note.tmpNoticeType(0) = "1") Then
  2315.                Call ConvertToNotice ("Confirmed -", ORS_MSGTYPE_CONFIRMATION, 10, targetNote)
  2316.                messagestring$ = "A confirmation notice has been sent to the invitees."
  2317.           Else
  2318.                Call ConvertToNotice ("Cancelled -", ORS_MSGTYPE_CANCEL, 81, targetNote)
  2319.                messagestring$ = "The invitees have been notified that this appointment has been cancelled."
  2320.                
  2321. 'if this document had an alarm, remove it from the alarms folder
  2322.                If (targetNote.HasItem("$Alarm")) Then Call targetNote.RemoveFromFolder("$Alarms")
  2323.                
  2324. 'update the appointment document
  2325.                targetNote.RemoveItem("CalendarDateTime")
  2326.                targetNote.NoticeType = ORS_MSGTYPE_CANCEL
  2327.                targetNote.Subject = "Cancelled - " & targetNote.Subject(0)
  2328.                Call targetNote.ReplaceItemValue("$BusyPriority","2")     
  2329.                Call targetNote.Save(True, True, True)
  2330.           End If
  2331.           Call note.MakeResponse(targetNote)
  2332.           note.SendTo = names
  2333.      Else
  2334.           note.MailOptions = "0"
  2335.           note.SaveOptions = "0"
  2336.           messagestring$ = "No attendees are expected to attend this meeting. Therefore, no notification has been sent."
  2337.      End If
  2338.      
  2339.      Print |<BODY TEXT="000000" BGCOLOR="ffffff">| 
  2340.      pos% = Instr (note.Path_Info(0), db.FileName)
  2341.      PathAndName$ = Left$(note.Path_Info(0), pos% + Len (db.FileName))
  2342.      If pos% <> 0 Then 
  2343.           Call wMessagePageHeader
  2344.      'Else
  2345.           'For some reason we cannot build the ref string
  2346.      End If
  2347.      Call MarkTempFields(note)
  2348.      
  2349. PrintTheMessage:
  2350.      Print "<P><B>" & messagestring$
  2351. End Sub
  2352. '++LotusScript Development Environment:2:2:ConvertToNotice:1:8
  2353. Sub ConvertToNotice(Subject As String, NoticeType As String, ViewIcon As Integer, replaceNote As NotesDocument)
  2354.  *Parameters
  2355.     Subject -> value of subject item
  2356.     NoticeType -> type of notice being sent
  2357.     ViewIcon -> icon to display in view
  2358. %END REM
  2359.      
  2360.      Dim ChairItem As NotesItem   
  2361.      On Error Goto ErrorRoutine
  2362.      
  2363. 'determine the context of the current note
  2364.      Context = GetContextSub ( replaceNote )
  2365.      Select Case Context
  2366.      Case 1,3
  2367. '1 = non-repeat notice, 3 = repeat notice -> make the notice doc a response to the parentnote
  2368.           If(note.HasItem("ApptUNID")) Then
  2369.                If(note.ApptUNID(0) <> parentnote.UniversalID) Then
  2370.                     Call note.MakeResponse(replaceNote)
  2371.                     note.ApptUNID = replaceNote.UniversalID
  2372.                Else
  2373.                     Call note.MakeResponse(parentnote)
  2374.                     note.ApptUNID = parentnote.UniversalID
  2375.                End If
  2376.           Else
  2377.                Call note.MakeResponse(parentnote)    
  2378.                note.ApptUNID = parentnote.UniversalID
  2379.           End If
  2380.      Case 2,4
  2381. '2 = repeat instance, 4 = non-repeat instance -> make the notice doc a response to the current note
  2382.           If(note.HasItem("ApptUNID")) Then
  2383.                If(note.ApptUNID(0) <> note.UniversalID) Then
  2384.                     Call note.MakeResponse(replaceNote)
  2385.                     note.ApptUNID = replaceNote.UniversalID      
  2386.                Else                    
  2387.                     Call note.MakeResponse(replaceNote)
  2388.                     note.ApptUNID = replaceNote.UniversalID
  2389.                End If
  2390.           Else
  2391.                Call note.MakeResponse(replaceNote)              
  2392.                note.ApptUNID = replaceNote.UniversalID           
  2393.           End If
  2394.      End Select
  2395.      
  2396.      Call note.ReplaceItemValue("$RefOptions","1")
  2397.      
  2398.      note.Form = "Notice"
  2399.      note.AppointmentType = "3"
  2400.      note.ExcludeFromView = "D" 
  2401.      note.Principal = Owner
  2402.      note.From = replaceNote.From
  2403.      note.Chair = Owner
  2404.      note.NoticeType = NoticeType
  2405.      num# = replaceNote.SequenceNum(0)
  2406.      note.SequenceNum = num#
  2407.      
  2408. 'add the required attendees -> we need to know what context the current document is in
  2409. 'this is because non-repeat notices, repeat notices, and non-repeat appointments have this information
  2410. 'repeat instances need to get this info from their parent
  2411.      Select Case Context
  2412.      Case 1,3,4
  2413. '1 = non-repeat notice,3 = repeat notice,4 = non-repeat instance -> get the values from the current note
  2414.           'note.RequiredAttendees = note.RequiredAttendees
  2415.           'note.OptionalAttendees = note.OptionalAttendees
  2416.      Case 2
  2417. 'the repeat instance document does not have this information -> get it from the parent
  2418.           note.RequiredAttendees = parentnote.RequiredAttendees
  2419.           note.OptionalAttendees = parentnote.OptionalAttendees
  2420.      End Select
  2421.      
  2422.      Call note.ReplaceItemValue("_ViewIcon", ViewIcon)
  2423.      'If (note.HasItem("$PublicAccess")) Then Call notice.ReplaceItemValue("$PublicAccess","1")
  2424.      If note.HasItem("tmpRescheduleWhich") Then 
  2425.           If (NoticeType = ORS_MSGTYPE_STATUSUPDATE) Then
  2426.                note.RescheduleWhich = "0" 'just this one
  2427.           Else
  2428.                note.RescheduleWhich = note.tmpRescheduleWhich
  2429.           End If
  2430.      End If
  2431.      
  2432.      note.Topic = note.Subject
  2433.      Set startitem = note.GetFirstItem("StartDateTime")
  2434.      If (note.Room(0) <> "") Then
  2435.           note.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
  2436.      Else
  2437.           note.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
  2438.      End If
  2439.      
  2440.      Exit Sub
  2441.      
  2442. ErrorRoutine:
  2443.      wNotifyUser Error & " (ConvertToNotice)"
  2444.      Exit Sub
  2445. End Sub
  2446. ^L    4 
  2447. tmpAccepted
  2448. tmpWaiting
  2449.     0S0E
  2450. tmpDelegee
  2451. tmpDeclined
  2452. tmpDelegated
  2453.     0S0E
  2454. O=Lotus Notes
  2455. O=Lotus Notes
  2456. PURSAFO
  2457. |.:#U
  2458. O=Lotus Notes
  2459. CN=Lotus Notes Template Development/O=Lotus Notes
  2460. PURSAFO
  2461. Fde!f^^
  2462. $TITLE
  2463. $AssistType
  2464. $AssistLastRun
  2465. $AssistDocCount
  2466. $AssistFlags
  2467. $AssistTrigger
  2468. $AssistInfo
  2469. $AssistQuery
  2470. $AssistAction
  2471. $AssistAction_Ex
  2472. Started running agent 'wInviteeResponsesOpen' on 07/26/97 12:38:48 PM
  2473. Ran LotusScript code
  2474. Done running agent 'wInviteeResponsesOpen' on 07/26/97 12:38:49 PM
  2475. '++LotusScript Development Environment:2:5:(Options):0:74
  2476. Option Public
  2477. Use "WebLib"
  2478. Use "SharedWorkflowLibrary"
  2479. Use "AppointmentResponses"
  2480. '++LotusScript Development Environment:2:5:(Forward):0:1
  2481. Declare Sub Initialize
  2482. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2483. '++LotusScript Development Environment:2:2:Initialize:1:10
  2484. Sub Initialize
  2485.      IsWebClient = True
  2486.      On Error Goto ErrorRoutine
  2487.      
  2488.      Dim targetNote As NotesDocument
  2489.      Dim nName As NotesName
  2490.      Dim nName2 As NotesName
  2491.      Dim names() As String
  2492.      Dim names2() As String
  2493.      
  2494.      Call wInstantiateObjectVariables
  2495.      
  2496.      'Get the target note UNID off the URL
  2497.      QueryString$ = note.Query_String(0)
  2498.      
  2499.      'locate the URL argument
  2500.      unid$ = "&UNID="
  2501.      pos% = Instr (QueryString$, unid$)
  2502.      If (pos% = 0) Then Exit Sub
  2503.      
  2504.      'fetch the remainder of the string, which should be the UNID
  2505.      workstr$ = Right$(QueryString$, Len (QueryString$) - (Len (unid$) + pos%) + 1)
  2506.      
  2507.      'is this a valid UNID?
  2508.      Set targetNote = db.GetDocumentByUNID( workstr$ )
  2509.      If targetNote Is Nothing Then Exit Sub
  2510.      
  2511.      Call CreateInviteeTable(targetNote)
  2512.      Call GetInviteeStatus(targetNote, False)
  2513.      Call ProcessInviteeTable(targetNote)
  2514.      
  2515.      'Accepted
  2516.      note.dispAccepted = ""
  2517.      note.tmpAccepted = ""
  2518.      index% = 0
  2519.      Forall uname In UsersAccepted
  2520.           If uname <> "" Then
  2521.                Set nName = New NotesName( uname )
  2522.                If ("" = nName.Abbreviated) Then 
  2523.                     nm$ = uname
  2524.                Else
  2525.                     nm$ = nName.Abbreviated
  2526.                End If
  2527.                note.dispAccepted = note.dispAccepted(0) & nm$ & "[<BR>]"
  2528.                index% = index% + 1
  2529.                Redim Preserve names (index%)
  2530.                names(index% - 1) = nm$
  2531.           End If
  2532.      End Forall
  2533.      If index% <> 0 Then note.tmpAccepted = names
  2534.      
  2535.      'Counter Proposed
  2536.      note.dispCounter = ""
  2537.      note.tmpCounter = ""
  2538.      index% = 0
  2539.      Forall uname In UsersCountered
  2540.           If uname <> "" Then
  2541.                Set nName = New NotesName( uname )
  2542.                If ("" = nName.Abbreviated) Then 
  2543.                     nm$ = uname
  2544.                Else
  2545.                     nm$ = nName.Abbreviated
  2546.                End If
  2547.                note.dispCounter = note.dispCounter(0) & nm$ & "[<BR>]"
  2548.                index% = index% + 1
  2549.                Redim Preserve names (index%)
  2550.                names(index% - 1) = nm$
  2551.           End If
  2552.      End Forall
  2553.      If index% <> 0 Then note.tmpCounter = names
  2554.      
  2555.      'Delegated
  2556.      targetcount% = 0
  2557.      Forall uname In UsersDelegated
  2558.           If uname <> "" Then
  2559.                targetcount% = targetcount% + 1
  2560.           End If
  2561.      End Forall
  2562.      note.dispDelegated = ""
  2563.      note.tmpDelegated = ""
  2564.      note.tmpDelegee = ""
  2565.      index% = 0
  2566.      If targetcount% <> 0 Then
  2567.           For idx% = 0 To (targetcount% - 1)
  2568.                Set nName = New NotesName( UsersDelegated(idx%))
  2569.                Set nName2 = New NotesName( Delegees(idx%))
  2570.                note.dispDelegated = note.dispDelegated(0) & nName.Common & " -> " _
  2571.                & nName2.Common & "[<BR>]"
  2572.                index% = index% + 1
  2573.                Redim Preserve names (index%)
  2574.                Redim Preserve names2 (index%)
  2575.                If ("" = nName.Abbreviated) Then 
  2576.                     nm$ = UsersDelegated(idx%)
  2577.                Else
  2578.                     nm$ = nName.Abbreviated
  2579.                End If
  2580.                If ("" = nName2.Abbreviated) Then 
  2581.                     nm2$ = Delegees(idx%)
  2582.                Else
  2583.                     nm2$ = nName.Abbreviated
  2584.                End If
  2585.                names(index% - 1) = nm$
  2586.                names2(index% - 1) = nm2$
  2587.           Next idx%
  2588.           note.tmpDelegated = names
  2589.           note.tmpDelegee = names2
  2590.      End If
  2591.      
  2592.      'Declined
  2593.      note.dispDeclined = ""
  2594.      note.tmpDeclined = ""
  2595.      index% = 0
  2596.      Forall uname In UsersDeclined
  2597.           If uname <> "" Then
  2598.                Set nName = New NotesName( uname )
  2599.                If ("" = nName.Abbreviated) Then 
  2600.                     nm$ = uname
  2601.                Else
  2602.                     nm$ = nName.Abbreviated
  2603.                End If
  2604.                note.dispDeclined = note.dispDeclined(0) & nm$ & "[<BR>]"
  2605.                index% = index% + 1
  2606.                Redim Preserve names (index%)
  2607.                names(index% - 1) = nm$
  2608.           End If
  2609.      End Forall
  2610.      If index% <> 0 Then note.tmpDeclined = names
  2611.      
  2612.      'No Response
  2613.      note.dispWaiting = ""
  2614.      note.tmpWaiting = ""
  2615.      index% = 0
  2616.      Forall uname In UsersWaiting
  2617.           If uname <> "" Then
  2618.                Set nName = New NotesName( uname )
  2619.                note.dispWaiting = note.dispWaiting(0) & nName.Common & "[<BR>]"
  2620.                index% = index% + 1
  2621.                Redim Preserve names (index%)
  2622.                If nName.Abbreviated = "" Then
  2623.                     names(index% - 1) = nName.Common
  2624.                Else                    
  2625.                     names(index% - 1) = nName.Abbreviated
  2626.                End If
  2627.           End If
  2628.      End Forall
  2629.      If index% <> 0 Then note.tmpWaiting = names
  2630.      
  2631.      'Removed
  2632.      note.dispUnivited = ""
  2633.      note.tmpUnivited = ""
  2634.      index% = 0
  2635.      While targetnote.Uninvited(index%) <> ""
  2636.           Set nName = New NotesName( targetnote.Uninvited(index%))
  2637.           If ("" = nName.Abbreviated) Then 
  2638.                nm$ = targetnote.Uninvited(index%)
  2639.           Else
  2640.                nm$ = nName.Abbreviated
  2641.           End If
  2642.           note.dispUnivited = note.dispUnivited(0) & nm$ & "[<BR>]"
  2643.           index% = index% + 1
  2644.           Redim Preserve names (index%)
  2645.           names(index% - 1) = nm$
  2646.      Wend
  2647.      If index% <> 0 Then note.tmpUnivited = names
  2648.      
  2649.      'Resource Reserved
  2650.      note.dispResAccepted = ""
  2651.      Forall uname In ResourcesReserved
  2652.           If uname <> "" Then
  2653.                Set nName = New NotesName( uname )
  2654.                If ("" = nName.Abbreviated) Then 
  2655.                     nm$ = uname
  2656.                Else
  2657.                     nm$ = nName.Abbreviated
  2658.                End If
  2659.                note.dispResAccepted = note.dispResAccepted(0) & nm$ & "[<BR>]"
  2660.           End If
  2661.      End Forall
  2662.      
  2663.      'Resource Unavailable
  2664.      note.dispResDeclined = ""
  2665.      Forall uname In ResourcesDeclined
  2666.           If uname <> "" Then
  2667.                Set nName = New NotesName( uname )
  2668.                If ("" = nName.Abbreviated) Then 
  2669.                     nm$ = uname
  2670.                Else
  2671.                     nm$ = nName.Abbreviated
  2672.                End If
  2673.                note.dispResDeclined = note.dispResDeclined(0) & nm$ & "[<BR>]"
  2674.           End If
  2675.      End Forall
  2676.      
  2677.      'No Resource Response
  2678.      note.dispResWaiting = ""
  2679.      Forall uname In ResourcesWaiting
  2680.           If uname <> "" Then
  2681.                Set nName = New NotesName( uname )
  2682.                If ("" = nName.Abbreviated) Then 
  2683.                     nm$ = uname
  2684.                Else
  2685.                     nm$ = nName.Abbreviated
  2686.                End If
  2687.                note.dispResWaiting = note.dispResWaiting(0) & nm$ & "[<BR>]"
  2688.           End If
  2689.      End Forall
  2690.      
  2691.      'squirrel this stuff away for use with the QuerySaveAgent
  2692.      num# = Cdbl( targetNote.SequenceNum(0) )
  2693.      note.SequenceNum = num#
  2694.      note.Subject = targetNote.Subject
  2695.      note.dispSubject = targetNote.Subject
  2696.      note.Room = targetNote.Room
  2697.      note.Broadcast = targetNote.Broadcast
  2698.      note.StartDate = targetNote.StartDate
  2699.      note.StartDateTime = targetNote.StartDateTime
  2700.      note.EndDateTime = targetNote.EndDateTime
  2701.      note.requiredattendees = targetNote.requiredattendees
  2702.      note.optionalattendees = targetNote.optionalattendees
  2703.      note.tmpDocUNID = targetNote.UniversalID
  2704.      note.Body = targetNote.Body
  2705.      
  2706.      Exit Sub
  2707.      
  2708. ErrorRoutine:
  2709.      Messagebox Error & " (wFoldersQuerySave)"
  2710.      Exit Sub
  2711. End Sub
  2712. O=Lotus Notes
  2713. O=Lotus Notes
  2714. PURSAFO
  2715. |.:#U
  2716. O=Lotus Notes
  2717. CN=Lotus Notes Template Development/O=Lotus Notes
  2718. PURSAFO
  2719. Fde!f^^
  2720. $TITLE
  2721. $AssistType
  2722. $AssistLastRun
  2723. $AssistDocCount
  2724. $AssistFlags
  2725. $AssistTrigger
  2726. $AssistInfo
  2727. $AssistQuery
  2728. $AssistAction
  2729. $AssistAction_Ex
  2730. (wFoldersSave)
  2731. CN=Harry Peebles/O=IrisCN=Lou Reed/O=bogusCN=Harry Peebles/O=IrisCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesfL3u!ea
  2732. #######################
  2733. (wFoldersOpen)
  2734. CN=Harry Peebles/O=IrisCN=Lou Reed/O=bogusCN=Harry Peebles/O=IrisCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesfL3u@ea
  2735. #######################
  2736. (wAddressSave)
  2737. fL3ujea
  2738. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
  2739. (wAddressOpen)
  2740. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  2741. (web Notice)NoticeCDn1
  2742. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################################
  2743. (web Task)TaskDCn
  2744. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  2745. (web vt Default)$$ViewTemplateDefaultCDn
  2746. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  2747. (web vt ToDo)$$ViewTemplate for ($ToDo)CDn
  2748. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  2749. (web view template)1PCUANx3
  2750. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  2751. ##########################################################
  2752. '++LotusScript Development Environment:2:5:(Options):0:74
  2753. Option Public 
  2754. '++LotusScript Development Environment:2:5:(Forward):0:1
  2755. Declare Sub Initialize
  2756. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2757. '++LotusScript Development Environment:2:2:Initialize:1:10
  2758. Sub Initialize
  2759.      IsWebClient = True
  2760.      On Error Goto ErrorRoutine
  2761.      
  2762.      Set session = New NotesSession
  2763.      Set db = session.CurrentDatabase
  2764.      Set note = session.DocumentContext
  2765.      
  2766.      'is this a valid document UNID?
  2767.      Dim curNote As NotesDocument
  2768.      Set curNote = db.GetDocumentByUNID( note.tmpUNIDnote(0) )
  2769.      If curNote Is Nothing Then Goto ArgumentsNotFound
  2770.      
  2771.      If (note.tmpNewFolder(0) <> "") Then
  2772.           Call curNote.PutInFolder( note.tmpNewFolder(0) )
  2773.           If (note.tmpNewFolderOptions(0) = "1") And (note.tmpCurFolderIsView(0) = "0") Then
  2774.                Call curNote.RemoveFromFolder( note.tmpViewName(0) )
  2775.           End If
  2776.      End If
  2777.      
  2778.      pos% = Instr (note.Path_Info(0), db.FileName)
  2779.      If pos% = 0 Then 
  2780.           Print "The document has been moved/copied."
  2781.      Else
  2782.           FilePathAndName$ = Left$(note.Path_Info(0), pos% + Len (db.FileName))
  2783.           tmpViewName = Evaluate("@ReplaceSubstring(tmpViewName;"" ""; ""+"")", note)
  2784.           Print "[" & FilePathAndName$ & tmpViewName(0) & "?OpenView]"
  2785.      End If
  2786.      Exit Sub
  2787.      
  2788. ArgumentsNotFound:
  2789.      Print "Invalid note UNID passed to wFoldersSave"
  2790.      Exit Sub
  2791.      
  2792. ErrorRoutine:
  2793.      Print Error & " (wFoldersSave)"
  2794. End Sub
  2795. tmpViewName
  2796. O=Lotus Notes
  2797. O=Lotus Notes
  2798. PURSAFO
  2799. |.:#U
  2800. O=Lotus Notes
  2801. CN=Lotus Notes Template Development/O=Lotus Notes
  2802. PURSAFO
  2803. Fde!f^^
  2804. $TITLE
  2805. $AssistType
  2806. $AssistLastRun
  2807. $AssistDocCount
  2808. $AssistFlags
  2809. $AssistTrigger
  2810. $AssistInfo
  2811. $AssistQuery
  2812. $AssistAction
  2813. $AssistAction_Ex
  2814. Started running agent 'wFoldersOpen' on 07/27/97 11:17:01 PM
  2815. Ran LotusScript code
  2816. Done running agent 'wFoldersOpen' on 07/27/97 11:17:03 PM
  2817. '++LotusScript Development Environment:2:5:(Options):0:74
  2818. Option Public
  2819. Use "WebLib"
  2820. '++LotusScript Development Environment:2:5:(Forward):0:1
  2821. Declare Sub Initialize
  2822. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2823. '++LotusScript Development Environment:2:2:Initialize:1:10
  2824. Sub Initialize
  2825. Expected Syntax:
  2826. ...?OpenForm&UNID=doc&View=view
  2827. %ENDREM
  2828.      
  2829.      IsWebClient = True
  2830.      Dim curNote As NotesDocument
  2831.      Dim curFolder As NotesView
  2832.      Dim AlarmsFolder As NotesView
  2833.      Dim InBoxFolder As NotesView
  2834.      Dim TrashFolder As NotesView
  2835.      
  2836.      Call wInstantiateObjectVariables
  2837.      On Error Goto ErrorRoutine
  2838.      
  2839.      'Get the target note UNID off the URL
  2840.      QueryString$ = note.Query_String(0)
  2841.      
  2842.      'locate the first URL argument
  2843.      unid$ = "&UNID="
  2844.      pos% = Instr (QueryString$, unid$)
  2845.      If (pos% = 0) Then Goto ArgumentsNotFound
  2846.      
  2847.      'fetch the remainder of the string
  2848.      workstr$ = Right$(QueryString$, Len (QueryString$) - (Len (unid$) + pos%) + 1)
  2849.      
  2850.      'locate the second URL argument
  2851.      view$ = "&View="
  2852.      pos% = Instr (workstr$, view$)
  2853.      If (pos% = 0) Then Goto ArgumentsNotFound
  2854.      
  2855.      'fetch the document UNID string
  2856.      UNIDnote$ = Left$(workstr$, pos% - 1)
  2857.      note.tmpUNIDnote = UNIDnote$
  2858.      
  2859.      'fetch the remainder of the string, which should be the view UNID
  2860.      UNIDview$ = Strconv ( Right$(workstr$, Len (workstr$) - (Len (view$) + pos%) + 1) , SC_UpperCase )
  2861.      
  2862.      'is this a valid document UNID?
  2863.      Set curNote = db.GetDocumentByUNID( UNIDnote$ )
  2864.      If curNote Is Nothing Then Goto ArgumentsNotFound
  2865.      
  2866.      'is this a valid view UNID?
  2867.      ViewList = db.Views
  2868.      found = False
  2869.      Forall tView In ViewList
  2870.           If (tView.UniversalID = UNIDview$) Then
  2871.                found = True
  2872.                Set curFolder = tView
  2873.                
  2874.                'Exclude MoveTo if current view is not a folder
  2875.                curFolderIsView = Not (curFolder.IsFolder )
  2876.                If (curFolderIsView) Then
  2877.                     note.tmpCurFolderIsView = "1"
  2878.                Else
  2879.                     note.tmpCurFolderIsView = "0"
  2880.                End If
  2881.                Exit Forall
  2882.           End If
  2883.      End Forall
  2884.      If Not( found ) Then Goto ArgumentsNotFound
  2885.      
  2886.      'Set the note values ...
  2887.      note.tmpSelectedDocument = curNote.Subject(0)
  2888.      note.tmpViewName = curFolder.Name
  2889.      curFolderName$ = curFolder.Name
  2890.      Select Case curFolderName$
  2891.      Case "($Inbox)"
  2892.           note.tmpSelectedFolder = "In Box"
  2893.      Case "($Sent)"
  2894.           note.tmpSelectedFolder = "Sent"
  2895.      Case "($Drafts)"
  2896.           note.tmpSelectedFolder = "Drafts"
  2897.      Case "($Trash)"
  2898.           note.tmpSelectedFolder = "Trash"
  2899.      Case "($All)"
  2900.           note.tmpSelectedFolder = "All Documents"
  2901.      Case "($Meetings)"
  2902.           note.tmpSelectedFolder = curFolder.Aliases
  2903.      Case "($Calendar)"
  2904.           note.tmpSelectedFolder = curFolder.Aliases
  2905.      Case "($ToDo)"
  2906.           note.tmpSelectedFolder = "To Do"
  2907.      Case "_Archiving"
  2908.           note.tmpSelectedFolder = curFolder.Aliases
  2909.      Case Else
  2910.           note.tmpSelectedFolder = curFolderName$
  2911.           cFolderName = Evaluate("@ReplaceSubstring(tmpSelectedFolder;"" ""; ""+"")", note)
  2912.           curFolderName$ = cFolderName(0)
  2913.      End Select
  2914.      
  2915.      'Prep strings
  2916.      pos% = Instr (note.Path_Info(0), db.FileName)
  2917.      If pos% = 0 Then Goto ArgumentsNotFound
  2918.      FileAndPathName$ = Left$(note.Path_Info(0), pos% + Len (db.FileName) )
  2919.      anchorHead$ = |<A HREF="| & FileAndPathName$ & "wCommand?OpenAgent"
  2920.      anchorMid$ = |">|
  2921.      anchorTail$ = |</A><BR>|
  2922.      
  2923.      moveHead$ =  anchorHead$ & "&Move=" & UNIDnote$ & "&To="
  2924.      moveTail$ = "&From=" & curFolderName$ & anchorMid$ & "Move To" & anchorTail$
  2925.      
  2926.      copyHead$ = anchorHead$ & "&Copy=" & UNIDnote$ & "&To="
  2927.      copyTail$ = "&From=" & curFolderName$ & anchorMid$ & "Copy To" & anchorTail$
  2928.      
  2929.      folderHead$ = |<A HREF="| & FileAndPathName$
  2930.      
  2931.      distroyHead$ = anchorHead$ & "&Destroy="
  2932.      distroyMid$ = anchorMid$ & "Destroy "
  2933.      
  2934.      FolderList$= "[<TABLE>"
  2935.      beginrow$ = "<TR><TD><FONT SIZE=2>"
  2936.      endrow$ = "</FONT></TD></TR>"
  2937.      anothercell$ = "</FONT></TD><TD><FONT SIZE=2>"
  2938.      
  2939.      If (curFolderIsView) Then
  2940.           note.dispSelectedFolder = "Selected View:"
  2941.      Else
  2942.           note.dispSelectedFolder = "Selected Folder:"
  2943.           note.tmpRemFromFolder = "[" & anchorHead$ & "&UnFile=" & UNIDnote$ & "&From=" & _
  2944.           curFolderName$ & anchorMid$ & "Remove document from folder" & anchorTail$ & "]"
  2945.      End If
  2946.      
  2947.      'Always exclude the In Box, Alarm & Trash folders from the body of the list ...
  2948.      Set InBoxFolder = db.GetView( "($Inbox)" )
  2949.      Set AlarmsFolder = db.GetView( "($Alarms)" )
  2950.      
  2951.      '... but include the Trash folder explicitly at the top of the list.
  2952.      anyrows = False
  2953.      Set TrashFolder = db.GetView( "($Trash)" )
  2954.      If (TrashFolder.UniversalID <> curFolder.UniversalID) Then
  2955.           anyrows = True
  2956.           If (curFolderIsView) Then
  2957.                FolderList$ = FolderList$ & beginrow$ & anothercell$ & copyHead$ & "($Trash)" & copyTail$
  2958.           Else
  2959.                FolderList$ = FolderList$ & beginrow$ & moveHead$ & "($Trash)" & moveTail$ & anothercell$ & "Copy To"
  2960.           End If
  2961.           FolderList$ = FolderList$ & anothercell$ & folderHead$ & "($Trash)"  & anchorMid$ & _
  2962.           "Trash" & anchorTail$ & anothercell$ & endrow$
  2963.      End If
  2964.      
  2965.      'Build the display folder lists ...
  2966.      Forall targetView In ViewList
  2967.           If targetView.IsFolder Then 
  2968.                If (targetView.UniversalID <> AlarmsFolder.UniversalID) And _
  2969.                (targetView.UniversalID <> InBoxFolder.UniversalID) And _
  2970.                (targetView.UniversalID <> TrashFolder.UniversalID) Then
  2971.                     anyrows = True                    
  2972.                     note.tmpFolder = targetView.Name
  2973.                     tmpFolderName = Evaluate("@ReplaceSubstring(tmpFolder;"" ""; ""+"")", note)
  2974.                     If (curFolderIsView) Then
  2975.                          FolderList$ = FolderList$ & beginrow$
  2976.                     Else
  2977.                          FolderList$ = FolderList$ & beginrow$ & moveHead$ & tmpFolderName(0) & moveTail$
  2978.                     End If
  2979.                     FolderList$ = FolderList$ & anothercell$ & copyHead$ & tmpFolderName(0) & copyTail$
  2980.                     FolderList$ = FolderList$ & anothercell$ & folderHead$ & tmpFolderName(0) & anchorMid$ & targetView.Name & anchorTail$
  2981.                     FolderList$ = FolderList$ & anothercell$ & distroyHead$ & tmpFolderName(0) & distroyMid$ & targetView.Name & anchorTail$ & endrow$ 
  2982.                End If
  2983.           End If
  2984.      End Forall
  2985.      If Not (anyrows) Then FolderList$ = FolderList$ & beginrow$ & "empty list" & endrow$
  2986.      note.dispFolderList = FolderList$ & "</TABLE><BR><BR>]"
  2987.      Exit Sub
  2988.      
  2989. ArgumentsNotFound:
  2990.      Messagebox "Arguments Not Found (wFoldersOpen)"
  2991.      Exit Sub
  2992.      
  2993. ErrorRoutine:
  2994.      Messagebox Error & " (wFoldersOpen)"
  2995.      Exit Sub
  2996. End Sub
  2997. tmpSelectedFolder
  2998. tmpFolder
  2999. O=Lotus Notes
  3000. O=Lotus Notes
  3001. PURSAFO
  3002. |.:#U
  3003. O=Lotus Notes
  3004. CN=Lotus Notes Template Development/O=Lotus Notes
  3005. PURSAFO
  3006. Fde!f^^
  3007. $TITLE
  3008. $AssistType
  3009. $AssistLastRun
  3010. $AssistDocCount
  3011. $AssistFlags
  3012. $AssistTrigger
  3013. $AssistInfo
  3014. $AssistQuery
  3015. $AssistAction
  3016. $AssistAction_Ex
  3017. Started running agent 'wCommand' on 07/28/97 12:17:26 AM
  3018. Ran LotusScript code
  3019. Done running agent 'wCommand' on 07/28/97 12:17:32 AM
  3020. '++LotusScript Development Environment:2:5:(Options):0:74
  3021. Option Public 
  3022. Use "WebLib"
  3023. '++LotusScript Development Environment:2:5:(Forward):0:1
  3024. Declare Sub Initialize
  3025. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3026. '++LotusScript Development Environment:2:2:Initialize:1:10
  3027. Sub Initialize
  3028. 'Expected URL syntax ...
  3029. 'Delete all documents in the trash folder
  3030. '?OpenAgent&EmptyTrash
  3031. '?OpenAgent&EmptyTrash=viewname
  3032.      
  3033. 'Move/copy document to trash folder
  3034. '?OpenAgent&ToTrash=unid&From=viewunid
  3035.      
  3036. 'Delete a folder
  3037. '?OpenAgent&Destroy=viewname
  3038.      
  3039. 'Copy a document to a folder
  3040. '?OpenAgent&Copy=unid&To=viewname&From=viewname
  3041.      
  3042. 'Move a document from one folder to another folder
  3043. '?OpenAgent&Move=unid&To=viewname&From=viewname
  3044.      
  3045. 'Remove a document from a folder
  3046. '?OpenAgent&UnFile=unid&From=viewname
  3047.      
  3048. 'Scroll to the end of a view
  3049. '?OpenAgent&ViewEnd=viewname
  3050.      
  3051. 'Replace one document with another.
  3052. '?OpenAgent&FixUp=unid
  3053.      
  3054. 'Remove the RSVP document
  3055. '?OpenAgent&Remove=unid
  3056.      IsWebClient = True
  3057.      On Error Goto ErrorRoutine
  3058.      
  3059.      Dim arg0name, arg0, arg1name, arg1, arg2name, arg2 As String
  3060.      Dim arg0found, arg1found, arg2found As Variant
  3061.      Dim MessageString As String
  3062.      MessageString = ""
  3063.      viewarguments$ = " "
  3064.      fromstr$ = "From"
  3065.      tostr$ = "To"
  3066.      intrash$ = "IN TRASH - "
  3067.      
  3068.      Dim srcFolder As NotesView
  3069.      Dim destFolder As NotesView
  3070.      Dim curNote As NotesDocument
  3071.      Dim nextNote As NotesDocument
  3072.      Dim CGINote As NotesDocument
  3073.      
  3074.      Set session = New NotesSession
  3075.      Set db = session.CurrentDatabase
  3076.      Set CGInote = session.DocumentContext
  3077.      
  3078.      Call wGetOrMakeCalendarProfile
  3079.      
  3080.      'prep for response page
  3081.      InfoPathPos% = Instr (CGInote.Path_Info(0), db.FileName)
  3082.      If InfoPathPos% <> 0 Then 
  3083.           FileAndPath$ = Left$(CGInote.Path_Info(0), InfoPathPos% + Len (db.FileName))
  3084.      End If
  3085.      
  3086.      'fetch query string & strip off "OpenAgent"
  3087.      QueryString$ = CGInote.Query_String(0)
  3088.      openagent$ = "OpenAgent&"
  3089.      pos% = Instr (QueryString$, openagent$)
  3090.      If (pos% = 0) Then Goto ArgumentError
  3091.      workstr$ = Right$(QueryString$, Len (QueryString$) - Len(openagent$))
  3092.      
  3093. 'fetch all arguments before processing
  3094.      arg0found = False
  3095.      arg1found = False
  3096.      arg2found = False
  3097.      
  3098.      'fetch arg0 name
  3099.      pos% = Instr (workstr$, "=")
  3100.      If (pos% = 0) Then 
  3101.           'no value, just arg name
  3102.           If (Len(workstr$) = 0) Then Goto ArgumentError
  3103.           arg0name = workstr$
  3104.           Goto AllArgsCollected
  3105.      End If
  3106.      arg0name = Left$ (workstr$, pos% - 1)
  3107.      workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  3108.      
  3109.      'fetch arg0 value
  3110.      pos% = Instr (workstr$, "&")
  3111.      If (pos% = 0) Then 
  3112.           'last arg in list
  3113.           If (Len(workstr$) = 0) Then Goto ArgumentError
  3114.           arg0found = True
  3115.           arg0 = workstr$
  3116.           Goto AllArgsCollected
  3117.      End If
  3118.      arg0found = True
  3119.      arg0 = Left$ (workstr$, pos% - 1)
  3120.      workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  3121.      
  3122.      'fetch arg1 name
  3123.      pos% = Instr (workstr$, "=")
  3124.      If (pos% = 0) Then Goto ArgumentError
  3125.      arg1name = Left$ (workstr$, pos% - 1)
  3126.      workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  3127.      
  3128.      'fetch arg1 value
  3129.      pos% = Instr (workstr$, "&")
  3130.      If (pos% = 0) Then 
  3131.           'last arg in list
  3132.           If (Len(workstr$) = 0) Then Goto ArgumentError
  3133.           arg1found = True
  3134.           arg1 = workstr$
  3135.           Goto AllArgsCollected
  3136.      End If
  3137.      arg1found = True
  3138.      arg1 = Left$ (workstr$, pos% - 1)
  3139.      workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  3140.      
  3141.      'fetch arg2 name
  3142.      pos% = Instr (workstr$, "=")
  3143.      If (pos% = 0) Then Goto ArgumentError
  3144.      arg2name = Left$ (workstr$, pos% - 1)
  3145.      workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  3146.      
  3147.      'fetch arg2 value
  3148.      pos% = Instr (workstr$, "&")
  3149.      If (pos% = 0) Then 
  3150.           'last arg in list
  3151.           If (Len(workstr$) = 0) Then Goto ArgumentError
  3152.           arg2found = True
  3153.           arg2 = workstr$
  3154.           Goto AllArgsCollected
  3155.      End If
  3156.      arg2found = True
  3157.      arg2 = Left$ (workstr$, pos% - 1)
  3158.      workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  3159.      
  3160. AllArgsCollected:
  3161.      
  3162. 'What command are we being issued?
  3163.      Select Case arg0name
  3164.      Case "EmptyTrash"
  3165.      '?OpenAgent&EmptyTrash
  3166.      '?OpenAgent&EmptyTrash=viewname
  3167.           'Delete all documents in the trash folder
  3168.           Set destFolder = db.GetView( "($Trash)" )
  3169.           Set curNote = destFolder.GetFirstDocument
  3170.           While Not (curNote Is Nothing)
  3171.                Set nextNote = destFolder.GetNextDocument( curNote )
  3172.                curNote.Remove( True )
  3173.                Set curNote = nextNote
  3174.           Wend
  3175.           
  3176.           If arg0found Then
  3177.                srcFolderStr$ = arg0
  3178.                CGInote.tmpFolderName = arg0
  3179.                sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", CGInote) 
  3180.                Set srcFolder = db.GetView( sFolder(0) )
  3181.                If srcFolder Is Nothing Then srcFolderStr$ = "($Trash)"
  3182.           Else
  3183.                srcFolderStr$ = "($Trash)"
  3184.           End If
  3185.           Goto ReturnToFolder
  3186.           
  3187.      Case "ToTrash"
  3188.      '?OpenAgent&ToTrash=unid&From=viewunid
  3189.           'Move/copy document to trash folder
  3190.           If Not (arg0found And arg1found) Goto ArgumentError
  3191.           
  3192.           'is this a valid document UNID?          
  3193.           On Error Resume Next
  3194.           Set curNote = db.GetDocumentByUNID( arg0 )
  3195.           On Error Goto ErrorRoutine
  3196.           If curNote Is Nothing Then Goto ReturnToInBox
  3197.           
  3198.           Call curNote.PutInFolder( "($Trash)" )
  3199.           
  3200.           'is this a valid view UNID?
  3201.           Dim uview As Variant
  3202.           uview = Strconv ( arg1, 1 )
  3203.           UNIDview$ = uview
  3204.           ViewList = db.Views
  3205.           found = False
  3206.           Forall tView In ViewList
  3207.                If (tView.UniversalID = UNIDview$) Then
  3208.                     found = True
  3209.                     Set srcFolder = tView
  3210.                     Exit Forall
  3211.                End If
  3212.           End Forall
  3213.           If Not( found ) Then Goto ArgumentError
  3214.           
  3215.           CGInote.tmpFolderName = srcFolder.Name
  3216.           sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;"" ""; ""+"")", CGInote)
  3217.           srcFolderStr$ = sFolder(0)
  3218.           
  3219.           Set destFolder = db.GetView( "($Trash)" )
  3220.           If (srcFolder.IsFolder And srcFolder.UniversalID <> destFolder.UniversalID) Then 
  3221.                Call curNote.RemoveFromFolder( srcFolder.Name )
  3222.           End If
  3223.           
  3224.           If (curNote.HasItem( "Subject" ) And profile.wEnableTrashIcon(0) = "1") Then
  3225.                If ( Left$( curNote.Subject(0), Len( intrash$ ) ) <> intrash$ ) Then
  3226.                     curNote.Subject = intrash$ & curNote.Subject(0)
  3227.                     Call curNote.Save(True, True, True)
  3228.                End If
  3229.           End If
  3230.           Goto ReturnToFolder
  3231.           
  3232.      Case "Destroy"
  3233.      '?OpenAgent&Destroy=viewname
  3234.           'Delete a folder
  3235.           If Not (arg0found) Goto ArgumentError
  3236.           CGInote.tmpFolderName = arg0
  3237.           sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", CGInote)
  3238.           Set srcFolder = db.GetView( sFolder(0) )
  3239.           If srcFolder Is Nothing Then Goto ArgumentError
  3240.           If Not ( srcFolder.IsFolder ) Then Goto ArgumentError
  3241.           Call srcFolder.Remove
  3242.           Goto ListAllViews
  3243.           
  3244.      Case "ViewEnd"
  3245.      '?OpenAgent&ViewEnd=viewname
  3246.           'Scroll to the end of a view
  3247.           If Not (arg0found) Goto ArgumentError
  3248.           If InfoPathPos% = 0 Then Goto InfoPathError
  3249.           
  3250.           srcFolderStr$ = arg0
  3251.           CGInote.tmpFolderName = arg0
  3252.           sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", CGInote)
  3253.           Set srcFolder = db.GetView( sFolder(0) )
  3254.           If srcFolder Is Nothing Then Goto ArgumentError
  3255.           
  3256.           'count the documents in this view
  3257.           NumDocs% = 0
  3258.           Set curNote = srcFolder.GetFirstDocument
  3259.           While Not curNote Is Nothing
  3260.                NumDocs% = NumDocs% + 1
  3261.                Set curNote = srcFolder.GetNextDocument(curNote)
  3262.           Wend
  3263.           
  3264.           'count number of top level the documents in this view
  3265.           NumTopDocs% = 0
  3266.           Set curNote = srcFolder.GetFirstDocument
  3267.           Dim lastTopNote As NotesDocument
  3268.           While Not curNote Is Nothing
  3269.                NumTopDocs% = NumTopDocs% + 1
  3270.                Set lastTopNote = curNote
  3271.                Set curNote = srcFolder.GetNextSibling(curNote)
  3272.           Wend
  3273.           
  3274.           num_to_list% = 15
  3275.           If (NumDocs% < num_to_list% And NumTopDocs% < num_to_list%) Then
  3276.                'end of view is already displayed
  3277.                Goto ReturnToFolder
  3278.           End If
  3279.           
  3280.           'if all documents in this view are NOT top level documents, then it's a hierarchical view
  3281.           If (NumDocs% = NumTopDocs%) Then
  3282.                'flat views need no further calcs.
  3283.                targetIndex% = (NumDocs% - num_to_list%) + 1
  3284.           Else
  3285.                'this is a hierarchical view, so we need to skip the responce docs when calcing the index
  3286.                'find a top level doc close to the end
  3287.                NumEndDocs% = 1
  3288.                LastTopDocNum% = NumTopDocs%
  3289.                targetIndex% = LastTopDocNum%
  3290.                Set curNote = srcFolder.GetLastDocument
  3291.                While Not curNote Is Nothing
  3292.                     If (NumEndDocs% > num_to_list%) Then 
  3293.                          'we've counted enough
  3294.                          targetIndex% = LastTopDocNum% + 1
  3295.                          Set curNote = Nothing
  3296.                     Else
  3297.                          'did we find a top doc?
  3298.                          If (curNote.UniversalID = lastTopNote.UniversalID) Then
  3299.                               'yes, then try to find the next one
  3300.                               Set lastTopNote = srcFolder.GetPrevSibling(lastTopNote)
  3301.                               LastTopDocNum% = LastTopDocNum% - 1
  3302.                          End If
  3303.                          NumEndDocs% = NumEndDocs% + 1
  3304.                          Set curNote = srcFolder.GetPrevDocument(curNote)
  3305.                     End If
  3306.                Wend
  3307.           End If
  3308.           
  3309.           Print "[" & FileAndPath$ & arg0 & "?OpenView&Start=" & Format$(targetIndex%) & "]"
  3310.           Exit Sub
  3311.           
  3312.      Case "UnFile"
  3313.      '?OpenAgent&UnFile=unid&From=viewname
  3314.           If Not (arg0found) Goto ArgumentError
  3315.           Set curNote = db.GetDocumentByUNID( arg0 )
  3316.           If curNote Is Nothing Then Goto ArgumentError
  3317.           
  3318.           srcFolderStr$ = arg1
  3319.           CGInote.tmpFolderName = arg1
  3320.           sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", CGInote)
  3321.           Set srcFolder = db.GetView( sFolder(0) )
  3322.           If srcFolder Is Nothing Then Goto ArgumentError
  3323.           
  3324.           Call curNote.RemoveFromFolder( srcFolder.Name )
  3325.           
  3326.           If (srcFolder.Name = "($Trash)") Then
  3327.                If (curNote.HasItem( "Subject" ) And profile.wEnableTrashIcon(0) = "1") Then
  3328.                     If ( Left$( curNote.Subject(0), Len( intrash$ ) ) = intrash$ ) Then
  3329.                          curNote.Subject = Right$( curNote.Subject(0), Len( curNote.Subject(0) ) - Len( intrash$ ) )
  3330.                          Call curNote.Save(True, True, True)
  3331.                     End If
  3332.                End If
  3333.           End If
  3334.           Goto ReturnToFolder
  3335.           
  3336.      Case "FixUp"
  3337.      '?OpenAgent&FixUp=unid
  3338.           On Error Resume Next
  3339.           Set curNote = db.GetDocumentByUNID( arg0 )
  3340.           On Error Goto ErrorRoutine
  3341.           If curNote Is Nothing Then Goto ReturnToInBox
  3342.           
  3343.           origNoteUNID = curNote.GetItemValue("$$OrigNoteUNID")
  3344.           On Error Resume Next
  3345.           Set nextNote = db.GetDocumentByUNID( origNoteUNID(0) )
  3346.           On Error Goto ErrorRoutine
  3347.           
  3348.           'make sure the target appointment document shows up in all the correct folders
  3349.           If Not (nextNote Is Nothing)  Then
  3350.                ViewList = db.Views
  3351.                Dim n As NotesDocument
  3352.                Forall tView In ViewList     'look thru all the folders
  3353.                     If (tView.IsFolder) Then
  3354.                          Set n = tView.GetFirstDocument
  3355.                          While Not ( n Is Nothing )     'look thru all the documents
  3356.                               If n.UniversalID = origNoteUNID(0) Then
  3357.                                    Call replaceNote.PutInFolder( fView.Name )
  3358.                               End If
  3359.                               Set n = tView.GetNextDocument( n )
  3360.                          Wend
  3361.                     End If
  3362.                End Forall
  3363.           End If
  3364.           
  3365.           'fetch the list of children, if it exists
  3366.           haschildren = False
  3367.           Dim collection As NotesDocumentCollection
  3368.           If Not (nextNote Is Nothing) Then 
  3369.                Set collection = nextNote.Responses
  3370.                If collection.Count <> 0 Then haschildren = True
  3371.                Call nextNote.Remove(False)     'destroy the original document
  3372.           End If 
  3373.           
  3374.           'save new values to target doc
  3375.           curNote.UniversalID = origNoteUNID(0)
  3376.           MessageString$ = curNote.WebMessageString(0)
  3377.           viewarguments$ = curNote.ViewArguments(0)
  3378.           Call curNote.RemoveItem("WebMessageString")
  3379.           Call curNote.RemoveItem( "ViewArguments" )
  3380.           Call curNote.Save(True, True, True)
  3381.           
  3382.           'remove temp note
  3383.           Set nextNote = db.GetDocumentByUNID( arg0 )
  3384.           Call nextNote.Remove(True)
  3385.           
  3386.           'associate all children with target doc
  3387.           If haschildren Then
  3388.                Set nextNote = collection.GetFirstDocument
  3389.                While Not nextNote Is Nothing
  3390.                     Call nextNote.MakeResponse( curNote )
  3391.                     Call nextNote.Save(True, True, True)
  3392.                     Set nextNote = collection.GetNextDocument( nextNote )
  3393.                Wend
  3394.           End If
  3395.           
  3396.           'determine return state
  3397.           If (MessageString$ = "") Then
  3398.                srcFolderStr$ = "($Calendar)"
  3399.                Goto ReturnToFolder
  3400.           End If
  3401.           Goto DisplayMessage
  3402.           
  3403.      Case "Remove"
  3404.      '?OpenAgent&Remove=unid
  3405.           On Error Resume Next
  3406.           Set curNote = db.GetDocumentByUNID( arg0 )
  3407.           On Error Goto ErrorRoutine
  3408.           If curNote Is Nothing Then Goto ReturnToInBox
  3409.           
  3410.           MessageString$ = curNote.WebMessageString(0)
  3411.           Call curNote.Remove(False)     'destroy the RSVP document
  3412.           
  3413.           'determine return state
  3414.           If (MessageString$ = "") Then
  3415.                srcFolderStr$ = "($InBox)"
  3416.                Goto ReturnToFolder
  3417.           End If
  3418.           Goto DisplayMessage
  3419.           
  3420.      Case Else
  3421.           '?OpenAgent&Copy=unid&To=viewname&From=viewname
  3422.           '?OpenAgent&Move=unid&To=viewname&From=viewname
  3423.           
  3424.           If Not (arg0name = "Copy" Or arg0name = "Move") Then Goto ArgumentError
  3425.           If Not (arg0found And arg1found And arg2found) Then Goto ArgumentError
  3426.           
  3427.           Set curNote = db.GetDocumentByUNID( arg0 )
  3428.           If curNote Is Nothing Then Goto ArgumentError
  3429.           
  3430.           CGInote.tmpFolderName = arg1
  3431.           sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", CGInote)
  3432.           Set destFolder = db.GetView( sFolder(0) )
  3433.           If destFolder Is Nothing Then Goto ArgumentError
  3434.           If Not ( destFolder.IsFolder ) Then Goto ArgumentError
  3435.           
  3436.           srcFolderStr$ = arg2
  3437.           CGInote.tmpFolderName = arg2
  3438.           sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", CGInote)
  3439.           Set srcFolder = db.GetView( sFolder(0) )
  3440.           If srcFolder Is Nothing Then Goto ArgumentError
  3441.           
  3442.           If (arg0name = "Move") Then
  3443.                'Move a doc from a folder to a folder.
  3444.                If Not ( srcFolder.IsFolder ) Then Goto ArgumentError
  3445.                Call curNote.PutInFolder( destFolder.Name )
  3446.                Call curNote.RemoveFromFolder( srcFolder.Name )
  3447.           Else
  3448.                'Copy a doc from a view or folder to a folder
  3449.                Call curNote.PutInFolder( destFolder.Name )
  3450.           End If
  3451.           
  3452.           If (srcFolder.Name = "($Trash)" Or destFolder.Name = "($Trash)") Then
  3453.                If (curNote.HasItem( "Subject" ) And profile.wEnableTrashIcon(0) = "1") Then
  3454.                     If (srcFolder.Name = "($Trash)") Then
  3455.                          'coming out of trash
  3456.                          If ( Left$( curNote.Subject(0), Len( intrash$ ) ) = intrash$ ) Then
  3457.                               curNote.Subject = Right$( curNote.Subject(0), Len( curNote.Subject(0) ) - Len( intrash$ ) )
  3458.                               Call curNote.Save(True, True, True)
  3459.                          End If        
  3460.                     Else
  3461.                          'going into trash
  3462.                          If ( Left$( curNote.Subject(0), Len( intrash$ ) ) <> intrash$ ) Then
  3463.                               curNote.Subject = intrash$ & curNote.Subject(0)
  3464.                               Call curNote.Save(True, True, True)
  3465.                          End If
  3466.                     End If
  3467.                End If
  3468.           End If
  3469.           
  3470.           Goto ReturnToFolder
  3471.      End Select
  3472.      
  3473. DisplayMessage:
  3474.      If viewarguments$ = " " Or viewarguments$ = "" Then
  3475.           viewarguments$ = "&Grid=" & profile.wCalGridType(0)
  3476.      End If
  3477.      If InfoPathPos% = 0 Then Goto InfoPathError
  3478.      Print |<BODY TEXT="000000" BGCOLOR="ffffff">| 
  3479.      Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>| 
  3480.      Print |<TR VALIGN=middle BGCOLOR="C0C0C0">| 
  3481.      Print |<TD><A HREF="| & FileAndPath$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>| 
  3482.      Print |<TD><A HREF="| & FileAndPath$ & |($Calendar)?OpenView| & viewarguments$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>| 
  3483.      Print |<TD><A HREF="| & FileAndPath$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>| 
  3484.      Print |<TD><A HREF="| & FileAndPath$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>| 
  3485.      Print |<TD><A HREF="| & FileAndPath$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD></TR>| 
  3486.      Print |</TABLE><HR><P><B>| & MessageString$
  3487.      Exit Sub
  3488.      
  3489. ListAllViews:
  3490.      If InfoPathPos% = 0 Then Goto InfoPathError
  3491.      Print "[" & FileAndPath$ & "]"
  3492.      Exit Sub
  3493.      
  3494. ReturnToInBox:
  3495.      If InfoPathPos% = 0 Then Goto InfoPathError
  3496.      Print "[" & FileAndPath$ & "($InBox)?OpenView" & viewarguments$ & "]"
  3497.      Exit Sub
  3498.      
  3499. ReturnToFolder:
  3500.      If viewarguments$ = " " And srcFolderStr$ = "($Calendar)" Then
  3501.           viewarguments$ = "&Grid=" & profile.wCalGridType(0)
  3502.      End If
  3503.      If InfoPathPos% = 0 Then Goto InfoPathError
  3504.      Print "[" & FileAndPath$ & srcFolderStr$ & "?OpenView" & viewarguments$ & "]"
  3505.      Exit Sub
  3506.      
  3507. ErrorRoutine:
  3508.      Print Error & " (wCommand)"
  3509.      Exit Sub
  3510.      
  3511. ArgumentError:
  3512.      If Len(QueryString$) < 1 Then QueryString$ = " "
  3513.      Print "Invalid arguments were supplied to wCommand (" & QueryString$ & ")"
  3514.      Exit Sub
  3515.      
  3516. InfoPathError:
  3517.      Print "Info_Path error from wCommand"
  3518. End Sub
  3519. #KL    S\    
  3520. #KL    S\    
  3521. #KL    S\    
  3522. tmpFolderName
  3523. tmpFolderName
  3524. tmpFolderName
  3525. tmpFolderName
  3526. tmpFolderName
  3527. tmpFolderName
  3528. tmpFolderName
  3529. O=Lotus Notes
  3530. O=Lotus Notes
  3531. PURSAFO
  3532. |.:#U
  3533. O=Lotus Notes
  3534. CN=Lotus Notes Template Development/O=Lotus Notes
  3535. PURSAFO
  3536. Fde!f^^
  3537. $TITLE
  3538. $AssistType
  3539. $AssistLastRun
  3540. $AssistDocCount
  3541. $AssistFlags
  3542. $AssistTrigger
  3543. $AssistInfo
  3544. $AssistQuery
  3545. $AssistAction
  3546. $AssistAction_Ex
  3547. Started running agent 'wAddressSave' on 07/27/97 10:49:45 PM
  3548. Ran LotusScript code
  3549. Done running agent 'wAddressSave' on 07/27/97 10:49:47 PM
  3550. '++LotusScript Development Environment:2:5:(Options):0:74
  3551. Option Public
  3552. Use "WebLib" 
  3553. '++LotusScript Development Environment:2:5:(Forward):0:1
  3554. Declare Sub Initialize
  3555. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3556. '++LotusScript Development Environment:2:2:Initialize:1:10
  3557. Sub Initialize
  3558.      Dim OriginalMemoNote As NotesDocument
  3559.      Dim originalUNID As String
  3560.      Dim sendto As Variant
  3561.      Dim copyto As Variant
  3562.      Dim blindcopyto As Variant
  3563.      InstantiateObjectVariables
  3564.      Set note = session.documentcontext
  3565.      dbpath = getdbpath
  3566.      
  3567.        'Get the UNID of the memo off the URL
  3568.      UNID$ = note.memounid(0)
  3569.      Set OriginalMemoNote = db.getdocumentbyUNID(Lcase(UNID$))
  3570.      
  3571.      'Get original values of fields from address lookup form
  3572.      sendto = note.tmpsendto
  3573.      copyto = note.tmpcopyto
  3574.      blindcopyto = note.tmpblindcopyto
  3575.      
  3576.      'Check to see if the original memo was newly created and is in the trash folder
  3577.      If Instr(1, OriginalMemoNote.subject(0), "IN TRASH", 0)>0 Then
  3578.           'Remove original memo from the trash folder and change subject back to orginal subject
  3579.           OriginalMemoNote.subject=OriginalMemoNote.OldSubject(0)
  3580.           OriginalMemoNote.removefromfolder("($Trash)")
  3581.      End If
  3582.      
  3583.      'Put new addressing values on original memo and open it up to the user in edit mode
  3584.      'Don't save empty address fields.
  3585.      If(Not "" = Trim$(sendto(0))) Then
  3586.           OriginalMemoNote.sendto = sendto
  3587.      End If
  3588.      If(Not "" = Trim$(copyto(0))) Then
  3589.           OriginalMemoNote.copyto = copyto
  3590.      End If
  3591.      If (Not "" = Trim$(blindcopyto(0)) And _
  3592.      Not OriginalMemoNote.Form(0) = "Appointment" And Not OriginalMemoNote.Form(0) = "Task") Then
  3593.           OriginalMemoNote.blindcopyto = blindcopyto
  3594.      End If
  3595.      OriginalMemoNote.IsAddressing = "0"
  3596.      OriginalMemoNote.save True, False
  3597.      
  3598.      'Make sure that the address finder form does not get saved
  3599.      If ( OriginalMemoNote.Form(0) = "Task") Then
  3600.           Print "[/"+dbpath+"/($All)/"+Lcase(OriginalMemoNote.universalid)+"?EditDocument&Assign]"
  3601.      Else          
  3602.           Print "[/"+dbpath+"/($All)/"+Lcase(OriginalMemoNote.universalid)+"?EditDocument]"
  3603.      End If
  3604.      Exit Sub
  3605.      
  3606. ErrorRoutine:
  3607.      Print Error & " (wAddressSave)"
  3608.      note.SaveOptions = "0"
  3609.      note.MailOptions = "0"
  3610.      Exit Sub
  3611. End Sub
  3612. O=Lotus Notes
  3613. O=Lotus Notes
  3614. PURSAFO
  3615. |.:#U
  3616. O=Lotus Notes
  3617. CN=Lotus Notes Template Development/O=Lotus Notes
  3618. PURSAFO
  3619. Fde!f^^
  3620. $TITLE
  3621. $AssistType
  3622. $AssistLastRun
  3623. $AssistDocCount
  3624. $AssistFlags
  3625. $AssistTrigger
  3626. $AssistInfo
  3627. $AssistQuery
  3628. $AssistAction
  3629. $AssistAction_Ex
  3630. Started running agent 'wAddressOpen' on 07/27/97 10:49:33 PM
  3631. Ran LotusScript code
  3632. Done running agent 'wAddressOpen' on 07/27/97 10:49:35 PM
  3633. '++LotusScript Development Environment:2:5:(Options):0:74
  3634. Option Public 
  3635. Use "WebLib" 
  3636. '++LotusScript Development Environment:2:5:(Forward):0:1
  3637. Declare Sub Initialize
  3638. Declare Sub Terminate
  3639. Declare Function NABEntry(NABFilename As String) As String
  3640. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3641. '++LotusScript Development Environment:2:2:Initialize:1:10
  3642. Sub Initialize
  3643.      IsWebClient = True 
  3644.      Call wInstantiateObjectVariables
  3645.      Call wGetOrMakeCalendarProfile
  3646.      
  3647.      On Error Goto ErrorRoutine
  3648.      
  3649.      'Just need to move the existing sendto, copyto and blindcopyto field values into this temporary address form
  3650.      'Get existing memo which we just came from
  3651.      Dim currentmemo As notesdocument
  3652.      Dim item As notesitem
  3653.      
  3654.      UNID$ = Mid(note.Query_String(0), Instr(note.Query_String(0), "&")+1, 32)
  3655.      
  3656.      'if the UNID is missing or invalid, exit gracefully
  3657.      On Error Resume Next
  3658.      Dim memoNote As NotesDocument
  3659.      Set memoNote = db.GetDocumentByUNID( UNID$ )
  3660.      On Error Goto ErrorRoutine
  3661.      If memoNote Is Nothing Then 
  3662.           note.AbortGracefully = "1"
  3663.           Exit Sub
  3664.      End If
  3665.      note.AbortGracefully = "0"
  3666.      
  3667.      note.memounid = Lcase(UNID$)
  3668.      Set currentmemo = db.getdocumentbyunid(Lcase(UNID$))               
  3669.      note.tmpsendto = currentmemo.sendto
  3670.      note.tmpcopyto = currentmemo.copyto
  3671.      note.tmpblindcopyto = currentmemo.blindcopyto
  3672.      note.dispsendto = currentmemo.sendto
  3673.      note.dispcopyto = currentmemo.copyto
  3674.      note.dispblindcopyto = currentmemo.blindcopyto
  3675.      note.origsendto = currentmemo.sendto
  3676.      note.origcopyto = currentmemo.copyto
  3677.      note.origblindcopyto = currentmemo.blindcopyto
  3678.      
  3679.      'Need to fill in the list of directory lookup address books from the calendar profile
  3680.      Set item = note.getfirstitem("addressbooks")
  3681.      If profile.hasitem("NotesNAB1") Then
  3682.           item.appendtotextlist(NABEntry(profile.NotesNAB1(0)))          
  3683.           If profile.hasitem("NotesNAB2") Then
  3684.                item.appendtotextlist(NABEntry(profile.NotesNAB2(0)))               
  3685.                If profile.hasitem("NotesNAB3") Then
  3686.                     item.appendtotextlist(NABEntry(profile.NotesNAB3(0)))
  3687.                     If profile.hasitem("NotesNAB4") Then
  3688.                          item.appendtotextlist(NABEntry(profile.NotesNAB4(0)))
  3689.                     End If
  3690.                End If
  3691.           End If
  3692.      End If
  3693.      
  3694.      'There has to be something in the address lookup field so if the preferences doesn't have anything, we'll default to names.nsf
  3695.      If note.addressbooks(0) = "" Then
  3696.           note.addressbooks = NABEntry("names.nsf")
  3697.      End If
  3698.      
  3699.      'If this is a new temporary document, move it to the trash folder
  3700.      If Instr(currentmemo.subject(0), "IN TRASH")>0 Then currentmemo.putinfolder("($Trash)")
  3701.      Exit Sub
  3702.      
  3703. ErrorRoutine:
  3704.      Messagebox Error & " (wAddressOpen)"
  3705.      Exit Sub
  3706. End Sub
  3707. '++LotusScript Development Environment:2:2:Terminate:1:10
  3708. Sub Terminate
  3709.      
  3710. End Sub
  3711. '++LotusScript Development Environment:2:1:NABEntry:1:8
  3712. Function NABEntry(NABFilename As String) As String
  3713.        'pull the title of the address book and put it as the display string in the field     
  3714.      Dim newnab As notesdatabase
  3715.      If NABFilename <> "" Then
  3716.           Set newnab = New notesdatabase("", NABFilename)
  3717.           If newnab.isopen Then
  3718.                NABEntry = newnab.title + "|" + NABFilename
  3719.           Else
  3720.                NABEntry = NABFilename
  3721.           End If
  3722.      End If
  3723. End Function
  3724. O=Lotus Notes
  3725. O=Lotus Notes
  3726. PURSAFO
  3727. |.:#U
  3728. O=Lotus Notes
  3729. CN=Lotus Notes Template Development/O=Lotus Notes
  3730. PURSAFO
  3731. Fde!f^^
  3732. '>*84
  3733. $TITLE
  3734. $AssistType
  3735. $AssistLastRun
  3736. $AssistDocCount
  3737. $AssistFlags
  3738. $AssistTrigger
  3739. $AssistInfo
  3740. $AssistQuery
  3741. $AssistAction
  3742. $AssistAction_Ex
  3743. Invitation from 
  3744. Principal
  3745.     1S2S6S
  3746. "Small Fonts
  3747. '++LotusScript Development Environment:2:5:(Options):0:74
  3748. '++LotusScript Development Environment:2:5:(Forward):0:1
  3749. Declare Sub Postopen(Source As Notesuidocument)
  3750. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  3751. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  3752. Declare Sub Postmodechange(Source As Notesuidocument)
  3753. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  3754. Declare Sub Click(Source As Button)
  3755. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3756. '++LotusScript Development Environment:2:2:Postopen:1:8
  3757. Sub Postopen(Source As Notesuidocument)
  3758.      
  3759. End Sub
  3760. '++LotusScript Development Environment:2:2:Querysave:1:8
  3761. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  3762.      
  3763. End Sub
  3764. '++LotusScript Development Environment:2:2:Queryopen:1:8
  3765. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  3766.      
  3767. End Sub
  3768. '++LotusScript Development Environment:2:2:Postmodechange:1:8
  3769. Sub Postmodechange(Source As Notesuidocument)
  3770.      
  3771. End Sub
  3772. '++LotusScript Development Environment:2:2:Queryclose:1:8
  3773. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  3774.      
  3775.      Messagebox "(Globals) Notice Queryclose"
  3776.      
  3777.      If (ErrorStatus > 0) Then 
  3778.           continue = False
  3779.           ErrorStatus = 0
  3780.      End If
  3781.      If ((Action = "Accept") Or (Action = "AddCalendar")) And note.HasItem("RepeatFor") Then note.Subject = "Repeat parent for " & note.Subject(0) & " - do not delete"
  3782.      ws.ViewRefresh
  3783. End Sub
  3784. '++LotusScript Development Environment:2:2:Click:1:8
  3785. Sub Click(Source As Button)
  3786.      
  3787. End Sub
  3788.  Notice'++LotusScript Development Environment:2:5:(Options):0:66
  3789. '++LotusScript Development Environment:2:5:(Forward):0:1
  3790. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  3791. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  3792. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  3793. Declare Sub Postopen(Source As Notesuidocument)
  3794. Declare Sub Postrecalc(Source As Notesuidocument)
  3795. Declare Sub Initialize
  3796. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3797. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3798. Private Sub BindEvents(Byval Objectname_ As String)
  3799.      Static Source As NOTESUIDOCUMENT
  3800.      Set Source = Bind(Objectname_)
  3801.      On Event Queryopen From Source Call Queryopen
  3802.      On Event Querysave From Source Call Querysave
  3803.      On Event Queryclose From Source Call Queryclose
  3804.      On Event Postopen From Source Call Postopen
  3805.      On Event Postrecalc From Source Call Postrecalc
  3806. End Sub
  3807. '++LotusScript Development Environment:2:2:Queryopen:1:12
  3808. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  3809.      
  3810. End Sub
  3811. '++LotusScript Development Environment:2:2:Querysave:1:12
  3812. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  3813.      
  3814. End Sub
  3815. '++LotusScript Development Environment:2:2:Queryclose:1:12
  3816. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  3817.      
  3818. End Sub
  3819. '++LotusScript Development Environment:2:2:Postopen:1:12
  3820. Sub Postopen(Source As Notesuidocument)
  3821.      
  3822. End Sub
  3823. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  3824. Sub Postrecalc(Source As Notesuidocument)
  3825.      
  3826. End Sub
  3827. '++LotusScript Development Environment:2:2:Initialize:1:10
  3828. Sub Initialize
  3829.      
  3830. End Sub
  3831. tmpConfirmMsg
  3832.     1S2S
  3833. [<b>  <b>]
  3834. tmpConfirmMsg
  3835. Comments
  3836.     1S2S
  3837. [<b>  </b>]
  3838. NoticeType
  3839. Invitation
  3840. NoticeType
  3841. Reschedule
  3842. NoticeType
  3843. Cancelled
  3844. NoticeType
  3845. Delegated Invitation
  3846. NoticeType
  3847. Status Update
  3848. NoticeType
  3849. Confirmation
  3850. NoticeType
  3851. Counter Proposal Declined
  3852. NoticeType
  3853. Acceptance
  3854. NoticeType
  3855. Declined
  3856. NoticeType
  3857. Delegation
  3858. NoticeType
  3859. Original Meeting
  3860. NoticeType
  3861. Pencilled In
  3862. Notice
  3863.     3S4S6S8RS8E9S10S12S14RS8E15S16S18S20RS8E21S22S24S26RS8E27S28S30S32RS8E33S34S36S38RS8E39S40S42S44RS8E45S46S48S50RS8E51S52S54S56RS8E57S58S60S62RS8E63S64S66S68RS8E69S70S72S74R
  3864. tmpLabel
  3865. CalendarProfile
  3866. Owner
  3867.     6S9S10S
  3868.     The owner of this mail file is "
  3869. CalendarProfile
  3870. Owner
  3871. tmpCurrentOwner
  3872.     You are logged in as "
  3873. tmpCurrentUser
  3874. $HideMailHeader
  3875. Principal
  3876. Principal
  3877. Principal
  3878. Principal
  3879. Principal
  3880.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  3881.     Sent by:    
  3882. FromDomain
  3883. FromDomain
  3884. FromDomain
  3885. FromDomain
  3886.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  3887. FromName
  3888.     0RR1S2S6S
  3889. FromStops
  3890.     0R1S2S6S
  3891. FromName
  3892. FromStops
  3893. FromStops
  3894. FromStops
  3895.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  3896. Broadcast
  3897.     1S2S
  3898.     0S0E
  3899.     Send RSVP
  3900. [<b>     </b>]
  3901. tmpRSVPAction
  3902. Accept|1Decline|0
  3903. [<b>   </b>]
  3904. CalendarProfile
  3905. AutoRemoveFromInbox
  3906. tmpOutOfInBox
  3907. Move out of the In Box|1
  3908. Broadcast
  3909.     1S2S
  3910.     0S0E
  3911.     Add to Calendar
  3912. [<b>     </b>]
  3913. CalendarProfile
  3914. AutoRemoveFromInbox
  3915. tmpOutOfInBox_1
  3916. Move out of the In Box|1
  3917. NoticeType
  3918.     1S2S3S4S5S6S
  3919. NoticeType
  3920. Accepted by:
  3921. NoticeType
  3922. Declined by:
  3923. NoticeType
  3924. tmpOwner
  3925. chair
  3926. Delegated to:
  3927. Delegated by:
  3928. NoticeType
  3929. Delegated by:
  3930. NoticeType
  3931. Counter proposal by:
  3932. tmpWhoLabel
  3933.     4RS8E7S8S10S12RS16E13S14S16S18RS16E19S20S25S26S28S30S33RS16E34S35S36S37S39RS16E40S41S43S45RS10E48R
  3934. tmpWhoLabel
  3935. NoticeType
  3936. Principal
  3937. Principal
  3938. NoticeType
  3939. tmpOwner
  3940. chair
  3941. Delegee
  3942. Principal
  3943.  (to 
  3944. Delegee
  3945. NoticeType
  3946. Principal
  3947. tmpWho
  3948.     4RS16E7S8S9S10S12S14RS34E21RS52E28RS34E32S36RS21E37S38S44S47S48S50S52S58S59S60S61S67S68S72RS21E73S74S75S76S83RS21E86RS9E
  3949. tmpWho
  3950.     Chairperson:
  3951. Chair
  3952.     0S0E
  3953. tmpOriginator
  3954.     Start:
  3955. StartDateTime
  3956. tmpStartDate
  3957.     End:
  3958. EndDateTime
  3959. tmpEndDate
  3960.     1S2S
  3961.     Room:
  3962. tmpRoom
  3963.     Description:
  3964. topic
  3965. tmpTopic[<size=58>]
  3966. NoticeType
  3967.     1S2S
  3968. [<b>  </b>]
  3969. Proposed Change
  3970.     Proposed date:
  3971. StartDate
  3972. StartDate
  3973. StartDateTime
  3974.     0S0E
  3975. NewDate
  3976. NoticeType
  3977. AppointmentType
  3978.     1S2S3S4S5S6S7S8S
  3979.     Proposed time:
  3980. NoticeType
  3981. AppointmentType
  3982.     1S2S3S4S5S6S7S8S9S
  3983. StartDateTime
  3984. EndDateTime
  3985.     6S7S8S9S
  3986. NewTimeRange
  3987.     Reason for change:
  3988. Reason[<size=58>]
  3989. RepeatDates
  3990.     0S0E
  3991.     Proposed location:
  3992. NoticeType
  3993. chair
  3994. tmpOwner
  3995.     1S2S3S4S5S6S
  3996. NewRoom
  3997. NoticeType
  3998. chair
  3999. tmpOwner
  4000.     1S2S3S4S5S6S
  4001. CurrentServer
  4002.     1S2S
  4003. CurrentServer
  4004. Error
  4005. This operation cannot be performed locally.
  4006.     0R3S4S5S6S14S15S
  4007. Sites
  4008. CurrentServer
  4009. names.nsf
  4010. ($Rooms)
  4011.     0R1S2S
  4012. Select the site to search for a room.
  4013. Sites
  4014.     0R1S2S7S8S
  4015. SiteKey
  4016. CN=*/O=
  4017. Site"
  4018.     0R1S2S3S4S
  4019. Capacity
  4020. RequiredAttendees
  4021. OptionalAttendees
  4022.     0R1S2S
  4023. RoomAvailable
  4024. SiteKey
  4025. tmpNewStart
  4026. tmpNewEnd
  4027. Capacity
  4028.     0R1S2S
  4029. RoomAvailable
  4030. No Room Found
  4031. No room was found during the specified time.
  4032.     0R3S4S5S6S11S12S14S15S
  4033. NewRoom
  4034. RoomAvailable
  4035.     0R1S2S3S
  4036. ProposeRoom
  4037.     0R1S2S3S
  4038. SelectRoom
  4039.     0R1S2S3S
  4040. NewRoom
  4041. tmpNewRoom
  4042. RepeatIDs
  4043. NoticeType
  4044.     4S5S6S7S
  4045. NoticeType
  4046.     3S4S5S6S7S8S
  4047.     Invitees:
  4048. RequiredAttendees
  4049. OptionalAttendees
  4050.     1S2S4S6S8S10S12S17S19S22S29S30S39S40S
  4051.     0R1S6S8S9S11S15S19S23S
  4052. tmpAttendeeList
  4053.     [<BR><BR>]
  4054.     Detailed description:
  4055. NoticeType
  4056.     1S2S
  4057.     Status update:
  4058. StatusUpdate
  4059.     Comments:
  4060. Comments
  4061. Broadcast
  4062.     1S2S3S4S5S6S
  4063.     Comments sent:
  4064. Comments[<size=73>]
  4065. [<b>  </b>]Mail Options[<BR>]
  4066. Importance
  4067. High|1Normal|2Low|3
  4068.      Importance
  4069. DeliveryReport
  4070. On failure|BConfirm delivery|CTrace entire path|TNone|N
  4071.      DeliveryReport
  4072. DeliveryPriority
  4073. High|HNormal|NLow|L
  4074.      Delivery Priority
  4075.     0S0E
  4076.     Send RSVP
  4077.     Hidden Fields: 
  4078. tmpNewStart
  4079. tmpNewEnd
  4080. MailOptions
  4081. wNoticeOpen
  4082. $$QueryOpenAgent
  4083. wNoticeSave
  4084. $$QuerySaveAgent
  4085. Path_Info
  4086. Query_String
  4087. tmpFrom
  4088.     Hidden w/ HTML tag in help description field:
  4089. tmpUNIDnote[<TYPE=hidden >]
  4090. _Edit Document
  4091. _Forward
  4092. _Move To Folder...
  4093. Categori_zeK
  4094. Send Docu_ment
  4095. _Remove From FolderK
  4096. RSVP ActionK8
  4097.     1S2S8S12S14S
  4098. /Notice?OpenForm&UNID=
  4099.     0R1S2S3S4S11S13S
  4100. path"
  4101.     0R1S2S3S4S5S6S
  4102. tmpConfirmMsg
  4103. &Check"
  4104.     0R1S3S4S6S11S14S15Sb
  4105. Chair
  4106. Broadcast
  4107. DoNotProcessh
  4108.     4S5S9S10S11S12S13S14S
  4109. Accept 
  4110.     0S0E
  4111. Chair
  4112. Broadcast
  4113. DoNotProcessh
  4114.     4S5S9S10S11S12S13S14S
  4115. Trash
  4116.     1S2S8S12S14S
  4117. /wCommand?OpenAgent&ToTrash=
  4118. &From="
  4119.     0R1S2S3S4S11S13S15S16S
  4120. Path_Info
  4121. Path_Info
  4122.     0R1S2S6S10S11S15S
  4123. view1
  4124.     0R1S2S3S10S14S18S21S
  4125. view2
  4126. view1
  4127. view1
  4128. view1
  4129.     0R1S2S3S10S14S18S21S
  4130. path"
  4131. view2
  4132.     0RR3S4S5S6S7S8S
  4133.     1S2S8S12S14S
  4134. /wFolders?OpenForm&UNID=
  4135. &View="
  4136.     0R1S2S3S4S11S13S15S16S
  4137. Path_Info
  4138. Path_Info
  4139.     0R1S2S6S10S11S15S
  4140. view1
  4141.     0R1S2S3S10S14S18S21S
  4142. view2
  4143. view1
  4144. view1
  4145. view1
  4146.     0R1S2S3S10S14S18S21S
  4147. path"
  4148. view2
  4149.     0RR3S4S5S6S7S8S
  4150. In Box*
  4151. ($Inbox)
  4152. Calendar
  4153.     1S2S8S12S14S
  4154. path"
  4155. /($Calendar)?OpenView&Grid=
  4156. CalendarProfile
  4157. wCalGridType
  4158.     0R3S4S5S6S7S8S12S
  4159. Meetings.
  4160. ($Meetings)
  4161. To Do
  4162. ($ToDo)
  4163. All Views
  4164. O=Lotus Notes
  4165. O=Lotus Notes
  4166. PURSAFO
  4167. |.:#U
  4168. O=Lotus Notes
  4169. CN=Lotus Notes Template Development/O=Lotus Notes
  4170. PURSAFO
  4171. Fde!f^^
  4172. #YN$[
  4173. StartDate
  4174. TimeRange
  4175. $FormPublicAccess
  4176. $TITLE
  4177. $INFO
  4178. $WINDOWTITLE
  4179. $Script
  4180. $$Script_O
  4181. $$ScriptName
  4182. $$FormScript
  4183. $$$FormScript_O
  4184. NewDate
  4185. NewTimeRange
  4186. tmpNewStart
  4187. tmpNewEnd
  4188. $BODY
  4189. $ACTIONS
  4190. $PublicAccess
  4191. *** Message Successfully Delivered ***
  4192.  Delivery Report
  4193. Delivery Confirmation Report
  4194.     Your document:
  4195. Subject
  4196. Subject
  4197.     was delivered to:
  4198. IntendedRecipient
  4199. IntendedRecipient
  4200. DeliveryDate
  4201. BodyBody of memo.
  4202.     Always Hidden:
  4203. Path_Info
  4204. Path_Info
  4205. Categori_ze
  4206. Close
  4207.     0S0E
  4208. _Edit Document
  4209. Send Docu_ment
  4210. _Forward
  4211. _Move to Folder...
  4212. _Remove from Folder...
  4213. Trash
  4214.     1S2S8S12S14S
  4215. /wCommand?OpenAgent&ToTrash=
  4216. &From="
  4217.     0R1S2S3S4S11S13S15S16S
  4218. Path_Info
  4219. Path_Info
  4220.     0R1S2S6S10S11S15S
  4221. view1
  4222.     0R1S2S3S10S14S18S21S
  4223. view2
  4224. view1
  4225. view1
  4226. view1
  4227.     0R1S2S3S10S14S18S21S
  4228. path"
  4229. view2
  4230.     0RR3S4S5S6S7S8S
  4231.     1S2S8S12S14S
  4232. /wFolders?OpenForm&UNID=
  4233. &View="
  4234.     0R1S2S3S4S11S13S15S16S
  4235. Path_Info
  4236. Path_Info
  4237.     0R1S2S6S10S11S15S
  4238. view1
  4239.     0R1S2S3S10S14S18S21S
  4240. view2
  4241. view1
  4242. view1
  4243. view1
  4244.     0R1S2S3S10S14S18S21S
  4245. path"
  4246. view2
  4247.     0RR3S4S5S6S7S8S
  4248. In Box*
  4249. ($Inbox)
  4250. Calendar.
  4251. ($Calendar)
  4252. Meetings.
  4253. ($Meetings)
  4254. To Do
  4255. ($ToDo)
  4256. All Viewsu"
  4257. O=Lotus Notes
  4258. O=Lotus Notes
  4259. PURSAFO
  4260. |.:#U
  4261. O=Lotus Notes
  4262. CN=Lotus Notes Template Development/O=Lotus Notes
  4263. PURSAFO
  4264. Fde!f^^
  4265. $TITLE
  4266. $INFO
  4267. $WINDOWTITLE
  4268. $$ScriptName
  4269. DeliveryDate
  4270. $BODY
  4271. $ACTIONS
  4272. VersionOpt|
  4273.     6S7S9S14S
  4274. $VersionOpt
  4275.     0R1S2S3S
  4276. SavedOnce
  4277.     0R1S2S3S
  4278. PostedDate(
  4279.     0R1S2S3S
  4280. DeliveredDate
  4281.     0R1S2S3S
  4282. $AutoEditMode
  4283.     0R1S2S3S
  4284. MailSaveOptions
  4285.     0R1S2S3S
  4286. VersionOpt
  4287.     0R4S
  4288. "Small Fonts
  4289. New Task
  4290. Subject
  4291. Subject
  4292. Subject
  4293.     4S6S12S13S14S15S17S21S23S25S26S28S
  4294. '++LotusScript Development Environment:2:5:(Options):0:74
  4295. Option Public
  4296. '++LotusScript Development Environment:2:5:(Forward):0:1
  4297. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4298.  Task'++LotusScript Development Environment:2:5:(Options):0:66
  4299. '++LotusScript Development Environment:2:5:(Forward):0:1
  4300. Declare Sub Postopen(Source As Notesuidocument)
  4301. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  4302. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  4303. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4304. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4305. Private Sub BindEvents(Byval Objectname_ As String)
  4306.      Static Source As NOTESUIDOCUMENT
  4307.      Set Source = Bind(Objectname_)
  4308.      On Event Postopen From Source Call Postopen
  4309.      On Event Queryclose From Source Call Queryclose
  4310.      On Event Querymodechange From Source Call Querymodechange
  4311. End Sub
  4312. '++LotusScript Development Environment:2:2:Postopen:1:12
  4313. Sub Postopen(Source As Notesuidocument)
  4314.      
  4315. End Sub
  4316. '++LotusScript Development Environment:2:2:Queryclose:1:12
  4317. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  4318.      
  4319. End Sub
  4320. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  4321. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  4322.      
  4323. End Sub
  4324.     Always Hidden: 
  4325. FromPerson memo is from.
  4326. tmpFrom
  4327. CalendarProfile
  4328. Owner
  4329. Principal
  4330.     0S0E
  4331.     0S0E
  4332. Encrypt
  4333.     0S0E
  4334. DefaultMailSaveOptions
  4335. $KeepPrivate
  4336. $KeepPrivate
  4337. $KeepPrivate
  4338.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  4339. MailOptions
  4340. wTask
  4341. $$QuerySaveAgent
  4342. Query_String
  4343. Query_StringCGI variable for LS
  4344. Path_Info
  4345. Path_Info
  4346. OldSubject
  4347. [<b>  </b>]
  4348. [<b>  </b>]-
  4349. [<b>  </b>]
  4350. title
  4351. DueState
  4352. Overdue
  4353. DueState
  4354. Current
  4355. DueState
  4356. Future
  4357. DueState
  4358. Rejected
  4359. Completed
  4360.     1S2S3S6S8R9S11S12S14S16R17S19S20S22S24R25S27S28S30S32R33S35S36S38S40S42S
  4361. Importance
  4362. title
  4363. , Priority = High (1)
  4364. title
  4365.     0RR1S3S4S6S7S8S10S
  4366. dispStatus
  4367. CalendarProfile
  4368. Owner
  4369.     6S9S10S
  4370.     The owner of this mail file is "
  4371. tmpCurOwner
  4372. CalendarProfile
  4373. Owner
  4374.     1S2S6S
  4375. tmpCurOwner
  4376. (set this value from the Preferences page)
  4377. tmpCurOwner
  4378.     0R1S3S4S6S8S
  4379. tmpCurrentOwner
  4380.     You are logged in as "
  4381. tmpCurrentUser
  4382. DueState
  4383.     1S2S3S4S5S6S7S8S
  4384.     0S0E
  4385.     Submit
  4386. DueState
  4387. AssignState
  4388. AssignState
  4389. tmpAssignTask
  4390.     1S2S3S4S5S6S7S8S9S10S15S16S17S18S20S21S22S23S
  4391. SoloTaskAction
  4392. Complete|1
  4393. DueState
  4394. AssignState
  4395. AssignState
  4396. tmpAssignTask
  4397.     1S2S3S4S5S6S7S8S9S10S14S15S16S17S18S19S20S2E21S22S23S
  4398. ReassignTask
  4399. Cancel the assignment to|1
  4400. SendTo"
  4401.     1S2S
  4402. dispAssignedTo
  4403. DueState
  4404.     1S2S3S4S5S6S7S8S
  4405.     0S0E
  4406.     Submit
  4407. AssignedTaskAction
  4408. Accept|0Decline - Notify Assignee|3Complete - Notify Assignee|2Complete|1
  4409. CalendarProfile
  4410. AutoRemoveFromInbox
  4411. tmpOutOfInBox
  4412. Move out of the In Box|1
  4413.     1S2S
  4414.     From:
  4415. Principal
  4416. Principal
  4417. FromDomain
  4418. FromDomain
  4419. FromDomain
  4420. FromDomain
  4421.     7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
  4422. FromName
  4423. Principal
  4424. Principal
  4425.     0RR1S2S9S11S15S
  4426. FromStops
  4427.     0R1S2S6S
  4428. FromName
  4429. FromStops
  4430. FromStops
  4431. FromStops
  4432.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom
  4433.      on 
  4434. PostedDateh
  4435. PostedDate
  4436.     7S9S
  4437. tmpDisplayDateTime/date memo was created or mailed.
  4438. $HideMailHeader
  4439. Principal
  4440. Principal
  4441. Principal
  4442. Principal
  4443. Principal
  4444.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  4445.     Sent by:
  4446. FromDomain
  4447. FromDomain
  4448. FromDomain
  4449. FromDomain
  4450.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  4451. FromName
  4452.     0RR1S2S6S
  4453. FromStops
  4454.     0R1S2S6S
  4455. FromName
  4456. FromStops
  4457. FromStops
  4458. FromStops
  4459.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  4460. ReplyTo
  4461.     1S2S
  4462.     Reply to:
  4463. ReplyTo
  4464. tmpDisplayReplyTo
  4465.     Subject
  4466. Subject[<size=58>]
  4467.     Priority:
  4468. Importance
  4469. None|99High (1)|1Medium (2)|2Low (3)|3
  4470.     Due Date:
  4471. DueDateTime
  4472. Invalid Due Date.
  4473. DueDateTime
  4474. DueDateTime
  4475. Invalid Due Date.
  4476.     7S12S17S19S20S21S23S25SDueDateTime
  4477.     Start Date:
  4478. StartDateTime
  4479. Invalid Start Date.
  4480. StartDateTime
  4481. StartDateTime
  4482. Invalid Start Date.
  4483.     7S12S17S19S20S21S23S25SStartDateTime
  4484. tmpAssignTask
  4485. SendTo
  4486.     1S2S3S4S5S6S
  4487.     Assign to:
  4488. SendTo[<size=58>]
  4489.     Assigned to:
  4490. AssignState
  4491. Principal
  4492. Principal
  4493. AssignState
  4494. SendTo
  4495. AssignedTo
  4496.     3S4S6S9S10S12S14S17S18S19S20S21S23S25S
  4497. AssignedTo[<size=58>]
  4498. tmpAssignTask
  4499. SendTo
  4500. CopyTo
  4501.     1S2S3S4S5S6S7S8S9S10S
  4502. CopyTo[<size=58>]
  4503.     [<BR>]
  4504. CopyTo
  4505.     1S2S
  4506. CopyTo
  4507. dispCopyTo[<size=58>]
  4508.     [<BR>]
  4509.     Additional Information:
  4510. Body[<ROWS="10" COLS="60"  WRAP=VIRTUAL>]
  4511.     [<BR>]File Attachments:
  4512. AssignState
  4513. AssignState
  4514. tmpAssignTask
  4515.     5S6S7S8S10S11S12S13S
  4516. [<b>  </b>]Mail Options[<BR>]
  4517. DeliveryReport
  4518. On failure|BConfirm delivery|CTrace entire path|TNone|N
  4519.     DeliveryReport
  4520. DeliveryPriority
  4521. High|HNormal|NLow|L
  4522.     Delivery Priority
  4523.     0S0E
  4524.     Submit
  4525.     Hidden w/ HTML tag in help description field:
  4526. tmpAssign
  4527. &Assign
  4528.     1S2S
  4529. Path_Info
  4530. tmpAssign
  4531. tmpAssign
  4532.     0R1S6S11S12S14S16S
  4533. tmpAssignTask[<TYPE=hidden >]
  4534. remember the original value ...
  4535. Query_String
  4536. tmpQuery_String[<TYPE=hidden >]
  4537. Edit Task
  4538. Principal
  4539. AssignState
  4540.     3S4S5S6S8S9S10S11S
  4541. _Forward
  4542. _Move To Folder...
  4543. Categori_zeK
  4544. SSend
  4545. _Remove From Folder...
  4546. Assign To OthersT
  4547.     1S2S8S12S14S
  4548. First arg could be a doc or view ref
  4549.     0RR1S
  4550. Path_Info
  4551. Path_Info
  4552.     0R1S2S6S10S11S15S16S
  4553. arg1a
  4554.     0R1S2S3S10S14S18S21S
  4555. arg1b
  4556. arg1a
  4557. arg1a
  4558. arg1a
  4559.     0R1S2S3S10S14S18S21S
  4560. If second arg exists, it's the doc ref
  4561.     0RR1S
  4562. arg1b
  4563.     0R1S2S3S10S14S18S22S23S27S28S31S
  4564. arg2a
  4565.     0R1S2S3S10S14S18S21S
  4566. openForm
  4567. OpenForm
  4568.     0RR1S2S
  4569. editDoc
  4570. EditDocument
  4571.     0R1S2S
  4572. Determine the command that was issued
  4573.     0RR1S
  4574. isOpenForm
  4575. tmpQuery_String
  4576. openForm
  4577. openForma
  4578.     0R1S2S8S14S15S
  4579. isEditDoc
  4580. tmpQuery_String
  4581. editDoc
  4582. editDoc
  4583.     0R1S2E2S5E8S14S15S
  4584. newCmd
  4585. isOpenForm
  4586. openForm
  4587. isEditDoc
  4588. editDoc
  4589.     0R1S2S3S6S8S12S14S
  4590. path"
  4591. arg1b
  4592. isEditDoc
  4593. arg2a
  4594. newCmd"
  4595. &Assign
  4596.     0R3S4S5S6S7S8S9S10S14S15S16S18S20S21S22S23S24S25Sr
  4597. AssignState
  4598. AssignState
  4599. tmpAssignTask
  4600.     5S6S7S8S10S11S12S13S
  4601. Edit 
  4602.     0S0E
  4603. DueState
  4604. AssignState
  4605.     1S2S3S4S5S6S
  4606. Reply
  4607. Reply
  4608. AssignState
  4609. AssignState
  4610. Principal
  4611.     4S5S6S7S8S9S13S14S
  4612. AddressK
  4613. OldSubject
  4614. Subject
  4615. Subject
  4616. IN TRASH - TEMPORARY DOCUMENT
  4617. Subject
  4618.     0R1S2S3S
  4619. tmpSendOptions
  4620.     0R1S
  4621.     0R1S10S14S16S23S
  4622.     0R4S
  4623. path"
  4624. /wAddressTask?OpenForm&
  4625.     0R3S4S5S6S7S8S15S17S18S.
  4626. tmpAssignTask
  4627.     1S2S
  4628. Trash
  4629.     1S2S8S12S14S
  4630. /wCommand?OpenAgent&ToTrash=
  4631. &From="
  4632.     0R1S2S3S4S11S13S15S16S
  4633. Path_Info
  4634. Path_Info
  4635.     0R1S2S6S10S11S15S
  4636. view1
  4637.     0R1S2S3S10S14S18S21S
  4638. view2
  4639. view1
  4640. view1
  4641. view1
  4642.     0R1S2S3S10S14S18S21S
  4643. path"
  4644. view2
  4645.     0RR3S4S5S6S7S8S
  4646.     1S2S8S12S14S
  4647. /wFolders?OpenForm&UNID=
  4648. &View="
  4649.     0R1S2S3S4S11S13S15S16S
  4650. Path_Info
  4651. Path_Info
  4652.     0R1S2S6S10S11S15S
  4653. view1
  4654.     0R1S2S3S10S14S18S21S
  4655. view2
  4656. view1
  4657. view1
  4658. view1
  4659.     0R1S2S3S10S14S18S21S
  4660. path"
  4661. view2
  4662.     0RR3S4S5S6S7S8S
  4663. In Box*
  4664. ($InBox)
  4665. Calendar
  4666.     1S2S8S12S14S
  4667. path"
  4668. /($Calendar)?OpenView&Grid=
  4669. CalendarProfile
  4670. wCalGridType
  4671.     0R3S4S5S6S7S8S12S
  4672. Meetings.
  4673. ($Meetings)
  4674. To Do
  4675. ($ToDo)
  4676. All Views
  4677. O=Lotus Notes
  4678. O=Lotus Notes
  4679. PURSAFO
  4680. |.:#U
  4681. O=Lotus Notes
  4682. CN=Lotus Notes Template Development/O=Lotus Notes
  4683. PURSAFO
  4684. Fde!f^^
  4685. 5Yv2h
  4686. DelegateAlert
  4687. AssigneeAlert
  4688. $$FormPostOpenAction
  4689. ExpireDate
  4690. ReplyDate
  4691. CompletedOn
  4692. ComposedDate
  4693. SelfAssigned
  4694. $TypeIcon
  4695. ASSIGNSTATE
  4696. $TITLE
  4697. $INFO
  4698. $WINDOWTITLE
  4699. $Script
  4700. $$Script_O
  4701. $$ScriptName
  4702. $$FormScript
  4703. $$$FormScript_O
  4704. DueDateTime
  4705. StartDateTime
  4706. $BODY
  4707. $ACTIONS
  4708.  $$ViewTemplateDefault
  4709. Hidden
  4710. Hidden: 
  4711. Path_Info
  4712. Query_String
  4713. Query_String
  4714. tmpOpenView
  4715. OpenView
  4716.     1S2S
  4717. tmpOpenViewLen
  4718. tmpOpenView
  4719.     0R1S2S3S
  4720. tmpQuery_StringLen
  4721. Query_String
  4722.     0R1S2S
  4723. tmpQuery_StringLen
  4724. tmpOpenViewLen
  4725. tmpOpenView
  4726. Query_String
  4727. tmpOpenViewLen_
  4728. Query_String
  4729. tmpQuery_StringLen
  4730. tmpOpenViewLen#
  4731.     0R1S3S4S6S8RS9E9S11S12S13S16S19S21RS18E25S26S27S29RS9E30S8E
  4732. tmpArgs
  4733. &Click_
  4734. tmpArgs
  4735. &Click_
  4736. tmpArgs
  4737.     0RR1S8S12S16S19S
  4738. ViewArguments
  4739.     4S6S
  4740. URLViewName
  4741. Domino
  4742. ViewPreviousPage
  4743. *.GIF
  4744. JPEG I
  4745. Previous
  4746. Domino
  4747. ViewNextPage
  4748.     0S0E
  4749. Expand
  4750.     0S0E
  4751. Collapse
  4752. ViewName
  4753. Begin
  4754.     1S2S8S12S14S
  4755. path"
  4756. /wCommand?OpenAgent&ViewEnd="
  4757. urlViewName
  4758.     0R3S4S5S6S7S8S
  4759. !!!)))111999BBBJJJRRRZZZccckkksss
  4760. ssc11
  4761. B9{1)
  4762. cR1skZ
  4763. {sc11)
  4764. {sBsk9cZ!
  4765. 11)ccR
  4766. kskZcZ
  4767. !1k)B
  4768. 99RZZ
  4769. 91kB1
  4770. RJsB9k
  4771. CGM Imag
  4772.     1S2S8S12S14S
  4773. path"
  4774. /Memo?OpenForm&From="
  4775. URLViewName
  4776. ViewArguments
  4777.     0R3S4S5S6S7S8S9S10S
  4778.  Memo
  4779. Appointment
  4780.  Meeting
  4781.  Task
  4782.     0S0E
  4783.     1S2S8S12S14S
  4784. path"
  4785. /Phone+Message?OpenForm&From=
  4786. URLViewName
  4787. ViewArguments
  4788.     0R3S4S5S6S7S8S9S10S
  4789.  Message
  4790. All Views:
  4791. $$ViewList
  4792. $$ViewList
  4793. Favorites:
  4794. CalendarProfile
  4795. wEnableFavorites
  4796.     4S6S7S
  4797. CalendarProfile
  4798. wEnableFavorites
  4799.     1S6S8S9S11S16S
  4800. CalendarProfile
  4801. wFavorite1
  4802.     0RR1S2S6S
  4803. CalendarProfile
  4804. wFavorite2
  4805.     0R1S2S6S
  4806. CalendarProfile
  4807. wFavorite3
  4808.     0R1S2S6S
  4809. CalendarProfile
  4810. wFavorite4
  4811.     0R1S2S6S
  4812. CalendarProfile
  4813. wFavorite5
  4814.     0R1S2S6S
  4815. CalendarProfile
  4816. wFavorite6
  4817.     0R1S2S6S
  4818. CalendarProfile
  4819. wIsFolder1
  4820. CalendarProfile
  4821. wFavoriteURL1
  4822.     0RR1S2S3S8S10S11S13RS17S19S22RS26S
  4823. CalendarProfile
  4824. wIsFolder2
  4825. CalendarProfile
  4826. wFavoriteURL2
  4827.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  4828. CalendarProfile
  4829. wIsFolder3
  4830. CalendarProfile
  4831. wFavoriteURL3
  4832.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  4833. CalendarProfile
  4834. wIsFolder4
  4835. CalendarProfile
  4836. wFavoriteURL4
  4837.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  4838. CalendarProfile
  4839. wIsFolder5
  4840. CalendarProfile
  4841. wFavoriteURL5
  4842.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  4843. CalendarProfile
  4844. wIsFolder6
  4845. CalendarProfile
  4846. wFavoriteURL6
  4847.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  4848. anchorHead
  4849.   <a href="
  4850.     0RR1S2S
  4851. anchorMid
  4852.     0R1S2S
  4853. anchorTail
  4854.     0R1S2S
  4855. Link1
  4856. anchorHead
  4857. url1"
  4858. anchorMid
  4859. fav1"
  4860. anchorTail"
  4861. <BR>"
  4862.     0RR1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  4863. Link2
  4864. anchorHead
  4865. url2"
  4866. anchorMid
  4867. fav2"
  4868. anchorTail"
  4869. <BR>"
  4870.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  4871. Link3
  4872. anchorHead
  4873. url3"
  4874. anchorMid
  4875. fav3"
  4876. anchorTail"
  4877. <BR>"
  4878.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  4879. Link4
  4880. anchorHead
  4881. url4"
  4882. anchorMid
  4883. fav4"
  4884. anchorTail"
  4885. <BR>"
  4886.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  4887. Link5
  4888. anchorHead
  4889. url5"
  4890. anchorMid
  4891. fav5"
  4892. anchorTail"
  4893. <BR>"
  4894.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  4895. Link6
  4896. anchorHead
  4897. url6"
  4898. anchorMid
  4899. fav6"
  4900. anchorTail"
  4901. <BR>"
  4902.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  4903. [</b>
  4904. Link1
  4905. Link2
  4906. Link3
  4907. Link4
  4908. Link5
  4909. Link6
  4910.     0RR1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4911. Favorites
  4912.     0S0E
  4913. Lotus 
  4914. *.CGM
  4915. Excel 4.0/
  4916.  Search
  4917.     1S2S8S12S14S
  4918. path"
  4919. /wCommand?OpenAgent&EmptyTrash=
  4920. URLViewName
  4921.     0R3S4S5S6S7S8S
  4922.  Empty Trash
  4923. wPreferences
  4924.  Preferences
  4925. wGuide
  4926.  Guide
  4927. $$ViewBody
  4928. Domino
  4929. ViewPreviousPage
  4930. *.GIF
  4931. JPEG I
  4932. Previous
  4933. Domino
  4934. ViewNextPage
  4935.     0S0E
  4936. Expand
  4937.     0S0E
  4938. Collapse
  4939. ViewName
  4940. Begin
  4941.     1S2S8S12S14S
  4942. path"
  4943. /wCommand?OpenAgent&ViewEnd="
  4944. urlViewName
  4945.     0R3S4S5S6S7S8S
  4946. Categori_zeK
  4947. _Edit Document
  4948. Send Docu_ment
  4949. _Forward
  4950. _Move To Folder...
  4951. _Remove From FolderK
  4952. O=Lotus Notes
  4953. O=Lotus Notes
  4954. PURSAFO
  4955. |.:#U
  4956. O=Lotus Notes
  4957. CN=Lotus Notes Template Development/O=Lotus Notes
  4958. PURSAFO
  4959. Fde!f^^
  4960. $TITLE
  4961. $INFO
  4962. $WINDOWTITLE
  4963. $$Script_O
  4964. $$ScriptName
  4965. $BODY
  4966. $ACTIONS
  4967.  $$ViewTemplate for ($ToDo)
  4968. Hidden: 
  4969. In Box
  4970. Drafts
  4971. Calendar
  4972. To Do
  4973. Meetings
  4974. Trash
  4975. Threads
  4976.     2R4R6R8R10R12R14R16R
  4977. ViewsToList
  4978. ($InBox)
  4979. ($Drafts)
  4980. ($Sent)
  4981. ($All)
  4982. ($Calendar)
  4983. ($ToDo)
  4984. ($Meetings)
  4985. ($Trash)
  4986. Discussion Threads
  4987.     2R4R6R8R10R12R14R16R
  4988. ViewsToAccess
  4989. In Box
  4990. Drafts
  4991. All Documents
  4992. Calendar
  4993. To Do
  4994. Meetings
  4995. Trash
  4996. Discussion Threads
  4997.     2R4R6R8R10R12R14R16R
  4998. ViewsToCompare
  4999. Path_Info
  5000. Path_Info
  5001. Query_String
  5002. Query_String
  5003. tmpOpenView
  5004. OpenView
  5005.     1S2S
  5006. tmpOpenViewLen
  5007. tmpOpenView
  5008.     0R1S2S3S
  5009. tmpQuery_StringLen
  5010. Query_String
  5011.     0R1S2S
  5012. tmpQuery_StringLen
  5013. tmpOpenViewLen
  5014. tmpOpenView
  5015. Query_String
  5016. tmpOpenViewLen_
  5017. Query_String
  5018. tmpQuery_StringLen
  5019. tmpOpenViewLen#
  5020.     0R1S3S4S6S8RS9E9S11S12S13S16S19S21RS18E25S26S27S29RS9E30S8E
  5021. tmpArgs
  5022. &Click_
  5023. tmpArgs
  5024. &Click_
  5025. tmpArgs
  5026.     0RR1S8S12S16S19S
  5027. ViewArguments
  5028. ($ToDo)
  5029. ViewName
  5030. ViewName
  5031. URLViewName
  5032.     1S2S8S12S14S
  5033. /wUpdateTasks?OpenAgent
  5034.     0R1S2S
  5035. path"
  5036.     0R3S4S5S6S
  5037. Image
  5038. *.GMF;*.CG
  5039. Update
  5040. Domino
  5041. ViewPreviousPage
  5042. *.GIF
  5043. JPEG I
  5044. Previous
  5045. Domino
  5046. ViewNextPage
  5047.     0S0E
  5048. Expand
  5049.     0S0E
  5050. Collapse
  5051. !!!)))111999BBBJJJRRRZZZccckkksss
  5052. ssc11
  5053. B9{1)
  5054. cR1skZ
  5055. {sc11)
  5056. {sBsk9cZ!
  5057. 11)ccR
  5058. kskZcZ
  5059. !1k)B
  5060. 99RZZ
  5061. 91kB1
  5062. RJsB9k
  5063. 1.26    0.22    Ella
  5064.     1S2S8S12S14S
  5065. path"
  5066. /Memo?OpenForm&From="
  5067. URLViewName
  5068. ViewArguments
  5069.     0R3S4S5S6S7S8S9S10S
  5070.  Memo
  5071. Appointment
  5072.  Meeting
  5073.  Task
  5074.     1S2S8S12S14S
  5075. path"
  5076. /Phone+Message?OpenForm&From=
  5077. URLViewName
  5078. ViewArguments
  5079.     0R3S4S5S6S7S8S9S10S
  5080.  Message
  5081. Main Views:
  5082. views
  5083. ViewsToList
  5084.     1S2S
  5085. viewsalias
  5086. ViewsToAccess
  5087.     0R1S2S
  5088. viewscomp
  5089. ViewsToCompare
  5090.     0R1S2S
  5091.     0RR1S2S
  5092. ncurr
  5093. viewscomp
  5094.     0R1S2S9S
  5095. vmask
  5096. ncurr
  5097. views
  5098. ncurr
  5099. ncurr
  5100. ncurr
  5101. views
  5102. views
  5103. ncurr
  5104.     0R1S2S8RS26E9S10S12S3E16S22RS34E24S25S26S28S32S37S39S40RS34E42RS34E44S45S46S51S55S59S60S63S
  5105. anchor
  5106.  <a href="/
  5107.     0RR1S2S3S4S10S14S16S
  5108. anchors
  5109. anchor
  5110. viewsalias
  5111. views
  5112. </a> "
  5113.     0R1S2S3S4S5S6S10S12S14S15S16S17S18S19S
  5114. <tr><td></td><td>
  5115.     0RR1S2S
  5116. <tr><td><img src="/icons/vwicn118"></td><td bgcolor="c0c0c0">
  5117.     0R1S2S
  5118. rows1
  5119. vmask
  5120. anchors
  5121. </td></tr>"
  5122.     0RR1S2S6S10S14S15S16S17S
  5123. rows1
  5124. Calendar)
  5125. Calendar)?OpenView&Grid=
  5126. CalendarProfile
  5127. wCalGridType
  5128.     0R1S2S6S8S9S10S14S
  5129. others
  5130. anchor"
  5131. ">All Views</a> </td><td>"
  5132.     0RR1S2S3S4S5S6S
  5133. [<table>
  5134. others"
  5135. </table>]
  5136.     0R1S2S6S8S9S10S11S
  5137. Views
  5138. CalendarProfile
  5139. wEnableFavorites
  5140.     4S6S7S
  5141. Favorites:
  5142. CalendarProfile
  5143. wEnableFavorites
  5144.     1S6S8S9S11S16S
  5145. CalendarProfile
  5146. wFavorite1
  5147.     0RR1S2S6S
  5148. CalendarProfile
  5149. wFavorite2
  5150.     0R1S2S6S
  5151. CalendarProfile
  5152. wFavorite3
  5153.     0R1S2S6S
  5154. CalendarProfile
  5155. wFavorite4
  5156.     0R1S2S6S
  5157. CalendarProfile
  5158. wFavorite5
  5159.     0R1S2S6S
  5160. CalendarProfile
  5161. wFavorite6
  5162.     0R1S2S6S
  5163. CalendarProfile
  5164. wIsFolder1
  5165. CalendarProfile
  5166. wFavoriteURL1
  5167.     0RR1S2S3S8S10S11S13RS17S19S22RS26S
  5168. CalendarProfile
  5169. wIsFolder2
  5170. CalendarProfile
  5171. wFavoriteURL2
  5172.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5173. CalendarProfile
  5174. wIsFolder3
  5175. CalendarProfile
  5176. wFavoriteURL3
  5177.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5178. CalendarProfile
  5179. wIsFolder4
  5180. CalendarProfile
  5181. wFavoriteURL4
  5182.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5183. CalendarProfile
  5184. wIsFolder5
  5185. CalendarProfile
  5186. wFavoriteURL5
  5187.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5188. CalendarProfile
  5189. wIsFolder6
  5190. CalendarProfile
  5191. wFavoriteURL6
  5192.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5193. anchorHead
  5194.   <a href="
  5195.     0RR1S2S
  5196. anchorMid
  5197.     0R1S2S
  5198. anchorTail
  5199.     0R1S2S
  5200. Link1
  5201. anchorHead
  5202. url1"
  5203. anchorMid
  5204. fav1"
  5205. anchorTail"
  5206. <BR>"
  5207.     0RR1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5208. Link2
  5209. anchorHead
  5210. url2"
  5211. anchorMid
  5212. fav2"
  5213. anchorTail"
  5214. <BR>"
  5215.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5216. Link3
  5217. anchorHead
  5218. url3"
  5219. anchorMid
  5220. fav3"
  5221. anchorTail"
  5222. <BR>"
  5223.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5224. Link4
  5225. anchorHead
  5226. url4"
  5227. anchorMid
  5228. fav4"
  5229. anchorTail"
  5230. <BR>"
  5231.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5232. Link5
  5233. anchorHead
  5234. url5"
  5235. anchorMid
  5236. fav5"
  5237. anchorTail"
  5238. <BR>"
  5239.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5240. Link6
  5241. anchorHead
  5242. url6"
  5243. anchorMid
  5244. fav6"
  5245. anchorTail"
  5246. <BR>"
  5247.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5248. [</b>
  5249. Link1
  5250. Link2
  5251. Link3
  5252. Link4
  5253. Link5
  5254. Link6
  5255.     0RR1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5256. Favorites
  5257.     0S0E
  5258. Lotus 
  5259. *.CGM
  5260. Excel 4.0/
  5261.  Search
  5262.     1S2S8S12S14S
  5263. path"
  5264. /wCommand?OpenAgent&EmptyTrash=
  5265. URLViewName
  5266.     0R3S4S5S6S7S8S
  5267.  Empty Trash
  5268. wPreferences
  5269.  Preferences
  5270. wGuide
  5271.  Guide
  5272. $$ViewBody
  5273. Domino
  5274. ViewPreviousPage
  5275. *.GIF
  5276. JPEG I
  5277. Previous
  5278. Domino
  5279. ViewNextPage
  5280.     0S0E
  5281. Expand
  5282.     0S0E
  5283. Collapse
  5284. Categori_zeK
  5285. _Edit Document
  5286. Send Docu_ment
  5287. _Forward
  5288. _Move To Folder...
  5289. _Remove From FolderK
  5290. O=Lotus Notes
  5291. O=Lotus Notes
  5292. PURSAFO
  5293. |.:#U
  5294. O=Lotus Notes
  5295. CN=Lotus Notes Template Development/O=Lotus Notes
  5296. PURSAFO
  5297. Fde!f^^
  5298. ,5biR
  5299. $TITLE
  5300. $INFO
  5301. $WINDOWTITLE
  5302. $$ScriptName
  5303. $BODY
  5304. $ACTIONS
  5305. (web view template)
  5306. Hidden: 
  5307. In Box
  5308. Drafts
  5309. Calendar
  5310. To Do
  5311. Meetings
  5312. Trash
  5313. Threads
  5314.     2R4R6R8R10R12R14R16R
  5315. ViewsToList
  5316. ($InBox)
  5317. ($Drafts)
  5318. ($Sent)
  5319. ($All)
  5320. ($Calendar)
  5321. ($ToDo)
  5322. ($Meetings)
  5323. ($Trash)
  5324. Discussion Threads
  5325.     2R4R6R8R10R12R14R16R
  5326. ViewsToAccess
  5327. In Box
  5328. Drafts
  5329. All Documents
  5330. Calendar
  5331. To Do
  5332. Meetings
  5333. Trash
  5334. Discussion Threads
  5335.     2R4R6R8R10R12R14R16R
  5336. ViewsToCompare
  5337. Path_Info
  5338. Path_Info
  5339. Query_String
  5340. Query_String
  5341. tmpOpenView
  5342. OpenView
  5343.     1S2S
  5344. tmpOpenViewLen
  5345. tmpOpenView
  5346.     0R1S2S3S
  5347. tmpQuery_StringLen
  5348. Query_String
  5349.     0R1S2S
  5350. tmpQuery_StringLen
  5351. tmpOpenViewLen
  5352. tmpOpenView
  5353. Query_String
  5354. tmpOpenViewLen_
  5355. Query_String
  5356. tmpQuery_StringLen
  5357. tmpOpenViewLen#
  5358.     0R1S3S4S6S8RS9E9S11S12S13S16S19S21RS18E25S26S27S29RS9E30S8E
  5359. tmpArgs
  5360. &Click_
  5361. tmpArgs
  5362. &Click_
  5363. tmpArgs
  5364.     0RR1S8S12S16S19S
  5365. ViewArguments
  5366. ViewName
  5367.     4S6S
  5368. URLViewName[<TYPE=hidden >]
  5369. ViewName
  5370. ($Drafts)
  5371.     1S2S
  5372. Domino
  5373. ViewPreviousPage
  5374. *.GIF
  5375. JPEG I
  5376. Previous
  5377. Domino
  5378. ViewNextPage
  5379.     0S0E
  5380. Expand
  5381.     0S0E
  5382. Collapse
  5383. ViewName
  5384. ($Drafts)
  5385.     1S2S
  5386. Domino
  5387. ViewPreviousPage
  5388. *.GIF
  5389. JPEG I
  5390. Previous
  5391. Domino
  5392. ViewNextPage
  5393.     0S0E
  5394. Expand
  5395.     0S0E
  5396. Collapse
  5397. ViewName
  5398. Begin
  5399.     1S2S8S12S14S
  5400. path"
  5401. /wCommand?OpenAgent&ViewEnd="
  5402. urlViewName
  5403.     0R3S4S5S6S7S8S
  5404. !!!)))111999BBBJJJRRRZZZccckkksss
  5405. ssc11
  5406. B9{1)
  5407. cR1skZ
  5408. {sc11)
  5409. {sBsk9cZ!
  5410. 11)ccR
  5411. kskZcZ
  5412. !1k)B
  5413. 99RZZ
  5414. 91kB1
  5415. RJsB9k
  5416. 1.26    0.22    Ella
  5417.     1S2S8S12S14S
  5418. path"
  5419. /Memo?OpenForm&From="
  5420. URLViewName
  5421. ViewArguments
  5422.     0R3S4S5S6S7S8S9S10S
  5423.  Memo
  5424. Appointment
  5425.  Meeting
  5426.  Task
  5427.     1S2S8S12S14S
  5428. path"
  5429. /Phone+Message?OpenForm&From=
  5430. URLViewName
  5431. ViewArguments
  5432.     0R3S4S5S6S7S8S9S10S
  5433.  Message
  5434. Main Views:
  5435. views
  5436. ViewsToList
  5437.     1S2S
  5438. viewsalias
  5439. ViewsToAccess
  5440.     0R1S2S
  5441. viewscomp
  5442. ViewsToCompare
  5443.     0R1S2S
  5444.     0RR1S2S
  5445. ncurr
  5446. viewscomp
  5447.     0R1S2S9S
  5448. vmask
  5449. ncurr
  5450. views
  5451. ncurr
  5452. ncurr
  5453. ncurr
  5454. views
  5455. views
  5456. ncurr
  5457.     0R1S2S8RS26E9S10S12S3E16S22RS34E24S25S26S28S32S37S39S40RS34E42RS34E44S45S46S51S55S59S60S63S
  5458. anchor
  5459.  <a href="/
  5460.     0RR1S2S3S4S10S14S16S
  5461. anchors
  5462. anchor
  5463. viewsalias
  5464. views
  5465. </a> "
  5466.     0R1S2S3S4S5S6S10S12S14S15S16S17S18S19S
  5467. <tr><td></td><td>
  5468.     0RR1S2S
  5469. <tr><td><img src="/icons/vwicn118"></td><td bgcolor="c0c0c0">
  5470.     0R1S2S
  5471. rows1
  5472. vmask
  5473. anchors
  5474. </td></tr>"
  5475.     0RR1S2S6S10S14S15S16S17S
  5476. rows1
  5477. Calendar)
  5478. Calendar)?OpenView&Grid=
  5479. CalendarProfile
  5480. wCalGridType
  5481.     0R1S2S6S8S9S10S14S
  5482. others
  5483. anchor"
  5484. ">All Views</a> </td><td>"
  5485.     0RR1S2S3S4S5S6S
  5486. [<table>
  5487. others"
  5488. </table>]
  5489.     0R1S2S6S8S9S10S11S
  5490. Views
  5491. CalendarProfile
  5492. wEnableFavorites
  5493.     4S6S7S
  5494. Favorites:
  5495. CalendarProfile
  5496. wEnableFavorites
  5497.     1S6S8S9S11S16S
  5498. CalendarProfile
  5499. wFavorite1
  5500.     0RR1S2S6S
  5501. CalendarProfile
  5502. wFavorite2
  5503.     0R1S2S6S
  5504. CalendarProfile
  5505. wFavorite3
  5506.     0R1S2S6S
  5507. CalendarProfile
  5508. wFavorite4
  5509.     0R1S2S6S
  5510. CalendarProfile
  5511. wFavorite5
  5512.     0R1S2S6S
  5513. CalendarProfile
  5514. wFavorite6
  5515.     0R1S2S6S
  5516. CalendarProfile
  5517. wIsFolder1
  5518. CalendarProfile
  5519. wFavoriteURL1
  5520.     0RR1S2S3S8S10S11S13RS17S19S22RS26S
  5521. CalendarProfile
  5522. wIsFolder2
  5523. CalendarProfile
  5524. wFavoriteURL2
  5525.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5526. CalendarProfile
  5527. wIsFolder3
  5528. CalendarProfile
  5529. wFavoriteURL3
  5530.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5531. CalendarProfile
  5532. wIsFolder4
  5533. CalendarProfile
  5534. wFavoriteURL4
  5535.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5536. CalendarProfile
  5537. wIsFolder5
  5538. CalendarProfile
  5539. wFavoriteURL5
  5540.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5541. CalendarProfile
  5542. wIsFolder6
  5543. CalendarProfile
  5544. wFavoriteURL6
  5545.     0R1S2S3S8S10S11S13RS17S19S22RS26S
  5546. anchorHead
  5547.   <a href="
  5548.     0RR1S2S
  5549. anchorMid
  5550.     0R1S2S
  5551. anchorTail
  5552.     0R1S2S
  5553. Link1
  5554. anchorHead
  5555. url1"
  5556. anchorMid
  5557. fav1"
  5558. anchorTail"
  5559. <BR>"
  5560.     0RR1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5561. Link2
  5562. anchorHead
  5563. url2"
  5564. anchorMid
  5565. fav2"
  5566. anchorTail"
  5567. <BR>"
  5568.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5569. Link3
  5570. anchorHead
  5571. url3"
  5572. anchorMid
  5573. fav3"
  5574. anchorTail"
  5575. <BR>"
  5576.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5577. Link4
  5578. anchorHead
  5579. url4"
  5580. anchorMid
  5581. fav4"
  5582. anchorTail"
  5583. <BR>"
  5584.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5585. Link5
  5586. anchorHead
  5587. url5"
  5588. anchorMid
  5589. fav5"
  5590. anchorTail"
  5591. <BR>"
  5592.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5593. Link6
  5594. anchorHead
  5595. url6"
  5596. anchorMid
  5597. fav6"
  5598. anchorTail"
  5599. <BR>"
  5600.     0R1S2S4S5S8S10S11S12S13S14S15S16S17S18S19S20S
  5601. [</b>
  5602. Link1
  5603. Link2
  5604. Link3
  5605. Link4
  5606. Link5
  5607. Link6
  5608.     0RR1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5609. Favorites
  5610.     0S0E
  5611. Lotus 
  5612. *.CGM
  5613. Excel 4.0/
  5614.  Search
  5615.     1S2S8S12S14S
  5616. path"
  5617. /wCommand?OpenAgent&EmptyTrash=
  5618. URLViewName
  5619.     0R3S4S5S6S7S8S
  5620.  Empty Trash
  5621. wPreferences
  5622.  Preferences
  5623. wGuide
  5624.  Guide
  5625. $$ViewBody
  5626. Domino
  5627. ViewPreviousPage
  5628. *.GIF
  5629. JPEG I
  5630. Previous
  5631. Domino
  5632. ViewNextPage
  5633.     0S0E
  5634. Expand
  5635.     0S0E
  5636. Collapse
  5637. Domino
  5638. ViewPreviousPage
  5639. *.GIF
  5640. JPEG I
  5641. Previous
  5642. Domino
  5643. ViewNextPage
  5644.     0S0E
  5645. Expand
  5646.     0S0E
  5647. Collapse
  5648. ViewName
  5649. Begin
  5650.     1S2S8S12S14S
  5651. path"
  5652. /wCommand?OpenAgent&ViewEnd="
  5653. urlViewName
  5654.     0R3S4S5S6S7S8S
  5655. O=Lotus Notes
  5656. O=Lotus Notes
  5657. PURSAFO
  5658. |.:#U
  5659. O=Lotus Notes
  5660. CN=Lotus Notes Template Development/O=Lotus Notes
  5661. PURSAFO
  5662. Fde!f^^
  5663. dTVqD
  5664. RVxaQ
  5665. $TITLE
  5666. $NoBackgroundOverride
  5667. $INFO
  5668. $$Script_O
  5669. $$ScriptName
  5670. $BODY
  5671. Started running agent 'wAppointmentSave' on 08/03/97 06:44:29 PM
  5672. Ran LotusScript code
  5673. Done running agent 'wAppointmentSave' on 08/03/97 06:44:31 PM
  5674. Started running agent 'wNoticeOpen' on 08/03/97 06:39:58 PM
  5675. Ran LotusScript code
  5676. Done running agent 'wNoticeOpen' on 08/03/97 06:39:59 PM
  5677. Started running agent 'wNoticeSave' on 08/03/97 06:40:03 PM
  5678. Ran LotusScript code
  5679. Done running agent 'wNoticeSave' on 08/03/97 06:40:06 PM
  5680. '++LotusScript Development Environment:2:5:(Options):0:74
  5681. Option Public
  5682. '++LotusScript Development Environment:2:5:(Forward):0:1
  5683. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5684. O=Lotus Notes
  5685. O=Lotus Notes
  5686. PURSAFO
  5687. |.:#U
  5688. O=Lotus Notes
  5689. CN=Lotus Notes Template Development/O=Lotus Notes
  5690. PURSAFO
  5691. Fde!f^^
  5692. &L[bi
  5693. $TITLE
  5694. $Index
  5695. $Formula
  5696. $FormulaClass
  5697. $VIEWFORMAT
  5698. $Comment
  5699. $ViewGlobalScript
  5700. (wAppointmentOpen)
  5701. EH4fL3u
  5702. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  5703. (wAppointmentSave)
  5704. EH4fL3u
  5705. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  5706. (wNoticeOpen)
  5707. fL3u[fa
  5708. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  5709. (wNoticeSave)
  5710. EH4fL3u
  5711. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  5712. (web Calendar Entry)AppointmentDCn1
  5713. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  5714. ##########################################################
  5715. 240EF0A853564D840009D6BA233719491EA45AEDDCEA2E8B54BB76CCC29BC123
  5716. (web Memo)MemoCDn
  5717. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  5718. ok 7^
  5719. D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
  5720. (web Phone Message)Phone MessageCDn
  5721. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
  5722. ##########################################################
  5723. ##########################################################
  5724. '++LotusScript Development Environment:2:5:(Options):0:74
  5725. Option Public 
  5726. Use "WebLib"
  5727. Use "SharedWorkflowLibrary"
  5728. Use "NoticeResponses"
  5729. '++LotusScript Development Environment:2:5:(Forward):0:1
  5730. Declare Sub Initialize
  5731. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5732. '++LotusScript Development Environment:2:2:Initialize:1:10
  5733. Sub Initialize
  5734. Expected Usage:
  5735. This agent is called as a $$QueryOpenAgent, the Query_String field is examined. 
  5736. There may be an "&EntryType=value" argument passed in.
  5737. %ENDREM     
  5738.      
  5739.      IsWebClient = True
  5740.      Call wInstantiateObjectVariables
  5741.      Call wGetOrMakeCalendarProfile
  5742.      
  5743. 'Parse command arguments
  5744.      openform$ = "OpenForm"
  5745.      entrytype$ = "&EntryType="
  5746.      
  5747.      QueryString$ = note.Query_String(0)
  5748.      
  5749.      If ( 0 <> Instr(1, QueryString$, openform$, 1) ) Then
  5750.           'new document
  5751.           note.IsNewDoc = "1"
  5752.           note.Chair = Owner
  5753.      Else
  5754.           note.IsNewDoc = "0"
  5755.           If (note.IsResponse) Then 
  5756.                Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
  5757.           End If
  5758.           Call CheckForNoticeUpdates()
  5759.           
  5760.           'Make sure the DurationMin item is set correctly
  5761.           '(DurationMin is unique to web mail, but the document could have been created by the Notes Client.)
  5762.           Dim startstring As String
  5763.           Dim endstring As String
  5764.           startstring = note.StartDateTime(0)
  5765.           endstring = note.EndDateTime(0)
  5766.           Dim startDT As New NotesDateTime( startstring )
  5767.           Dim endDT As New NotesDateTime( endstring )
  5768.           duration = endDT.TimeDifference(startDT) / 60     ' truncate to minutes
  5769.           If( duration Mod 15 ) Then
  5770.                duration = ((duration \ 15 ) + 1 ) * 15                  'round up to quarter hour
  5771.           End If
  5772.           note.DurationMin = Format$(duration)
  5773.           
  5774.           'Make sure the Broadcast item is set correctly.
  5775.           '(This is a work around for the "checkbox is hidden and enabled" bug.)
  5776.           If (note.HasItem("PreserveBroadcast")) Then note.Broadcast = "1"
  5777.      End If
  5778.      note.tmpOwner = Owner
  5779.      
  5780.      'do we have any arguments?
  5781.      pos% = Instr (QueryString$, "&")
  5782.      If (pos% <> 0) Then 
  5783.           argstr$ = Right$ (QueryString$, Len (QueryString$) - pos% + 1)
  5784.      Else 
  5785.           argstr$ = " "
  5786.      End If
  5787.      
  5788.      Dim cmdFound As Variant
  5789.      cmdFound = False
  5790.      pos% = Instr (1, argstr$, entrytype$, 1)
  5791.      If (pos% <> 0) Then 
  5792.                'fetch the remainder of the string
  5793.           workstr$ = Right$(argstr$, Len (argstr$) - (Len (entrytype$) + pos%) + 1)
  5794.           workstr2$ = Left$(workstr$, 1)
  5795.           If Len (workstr$) > 1 Then
  5796.                argstr$ = Right$(workstr$, Len (workstr$) - 1)
  5797.           Else
  5798.                argstr$ = " "
  5799.           End If
  5800.           If (workstr2$ = "0" Or workstr2$ = "1" Or workstr2$ = "2" Or workstr2$ = "3" Or workstr2$ = "4") Then
  5801.                     'Use the appointment type passed into this agent
  5802.                note.AppointmentType = workstr2$
  5803.                cmdFound = True
  5804.           End If
  5805.      End If     
  5806.      
  5807.      If Not (cmdFound) Then
  5808.           If note.AppointmentType(0) = "" Then
  5809.                'Use the default appointment type
  5810.                note.AppointmentType = profile.CalEntryType
  5811.           'Else
  5812.                'The note's AppointmentType is already set.
  5813.           End If
  5814.      End If
  5815.      
  5816.      'Compute for display ...
  5817.      Select Case note.AppointmentType(0)
  5818.      Case "0"
  5819.           appTypeName = "Appointment"
  5820.      Case "1"
  5821.           appTypeName = "Anniversary"
  5822.      Case "2"
  5823.           appTypeName = "Event"
  5824.      Case "3"
  5825.           appTypeName = "Invitation"
  5826.      Case "4"
  5827.           appTypeName = "Reminder"
  5828.      Case Else
  5829.           appTypeName = "Calendar Entry"
  5830.      End Select
  5831.      
  5832.      note.dispAppType = appTypeName
  5833.      note.tmpDispAppType = appTypeName
  5834.      
  5835.      note.ViewArguments = argstr$
  5836.      Exit Sub
  5837. End Sub
  5838. O=Lotus Notes
  5839. O=Lotus Notes
  5840. PURSAFO
  5841. |.:#U
  5842. O=Lotus Notes
  5843. CN=Lotus Notes Template Development/O=Lotus Notes
  5844. PURSAFO
  5845. Fde!f^^
  5846. V8BY54m
  5847. $TITLE
  5848. $AssistType
  5849. $AssistLastRun
  5850. $AssistDocCount
  5851. $AssistFlags
  5852. $AssistTrigger
  5853. $AssistInfo
  5854. $AssistQuery
  5855. $AssistAction
  5856. $AssistAction_Ex
  5857. '++LotusScript Development Environment:2:5:(Options):0:74
  5858. Option Public 
  5859. Use "WebLib"
  5860. Use "SharedWorkflowLibrary" 
  5861. Use "AppointmentResponses"
  5862. '++LotusScript Development Environment:2:5:(Forward):0:1
  5863. Declare Sub Initialize
  5864. Declare Sub Queryopen
  5865. Declare Sub Postopen(Isnewdoc As Variant)
  5866. Declare Sub Postrecalc
  5867. Declare Sub Querysave(NewDocument As Variant, Continue As Variant)
  5868. Declare Sub Queryclose
  5869. Declare Sub BuildAttendeeLists(mode As Integer, n As NotesDocument)
  5870. Declare Sub ConvertToInvitation( unidstr As String )
  5871. Declare Sub ConvertToNotice (Subject As String, NoticeType As String, ViewIcon As Integer, Mode As Integer, newunid As String)
  5872. '++LotusScript Development Environment:2:5:(Declarations):0:10
  5873. Dim startdt As NotesDateTime
  5874. Dim enddt As NotesDateTime
  5875. Dim trdr As NotesDateRange
  5876. Dim Intl As NotesInternational
  5877. Dim tmpList() As Variant
  5878. Dim SelectedDate As Variant
  5879. Dim AppointmentAlarms As Integer
  5880. Dim AnniversaryAlarms As Integer
  5881. Dim EventAlarms As Integer
  5882. Dim AlarmSet As Integer
  5883. Dim InAlarmFolder As Integer 
  5884. '++LotusScript Development Environment:2:2:Initialize:1:10
  5885. Sub Initialize
  5886.      IsWebClient = True
  5887.      Dim Isnewdoc As Variant
  5888.      Dim Continue As Variant
  5889.      Continue = True
  5890.      
  5891.      Call wInstantiateObjectVariables
  5892.      
  5893.      If note.isaddressing(0) = "1" Then 
  5894.           note.mailoptions = "0"
  5895.           note.saveoptions = "1"
  5896.           Exit Sub
  5897.      End If
  5898.      
  5899.      pathinfo$ = note.Path_Info(0)
  5900.      Set profile = db.GetProfileDocument("CalendarProfile")     
  5901.      If profile.Owner(0) = "" Then 
  5902.           note.MailOptions = "0"
  5903.           note.SaveOptions = "0"
  5904.           Print "Document not processed. Set the mail file owner from the preferences page."
  5905.           Exit Sub
  5906.      End If
  5907.      Owner = profile.Owner(0)
  5908.      
  5909.      On Error Goto ErrorRoutine
  5910.      On Error 4005 Resume Next   'this will handle the parentnote not being found
  5911.      
  5912.      note.WebMessageString = ""
  5913.      note.transTargetAction = 0
  5914.      
  5915.      If note.Query_String(0) = "OpenForm" Or note.IsNewDoc(0) = "1" Then
  5916.           Isnewdoc = True
  5917.      Else
  5918.           'The javascript button behavior can have the querystring be edit instead of save
  5919.           isnewdoc = False
  5920.           Call Queryopen
  5921.      End If
  5922.      
  5923.      Call Postopen(Isnewdoc)
  5924.      Call Postrecalc
  5925.      Call QuerySave(Isnewdoc, Continue)
  5926.      If Continue = True Then Call QueryClose
  5927.      
  5928.      note.WebPrevCalEntryType = note.AppointmentType
  5929.      note.OriginalStartDate = note.StartDateTime
  5930.      note.OriginalEndDate = note.EndDateTime
  5931.      note.OriginalRoom = note.Room
  5932.      
  5933.      Dim canRedirect As Variant
  5934.      canRedirect = SetWebFilePathAndName
  5935.      
  5936.      Call note.RemoveItem( "docUNID" )
  5937.      taction% = note.transTargetAction(0)
  5938.      Call note.RemoveItem( "transTargetAction" )
  5939.      note.Form = "Appointment"
  5940.      
  5941.      If (taction% = 0) Then
  5942.           'Save this document as is
  5943.           note.SaveOptions = "1"
  5944.           note.MailOptions = "0"
  5945.      Else
  5946.           'The saved document must be the mail message. 
  5947.           'Therefore, save the Appointment document seperately.
  5948.           Dim replaceNote As NotesDocument
  5949.           Set replaceNote = New NotesDocument(db)
  5950.           newunid$ = replaceNote.UniversalID
  5951.           unid$ = note.UniversalID
  5952.           If taction% And 1 Then
  5953.                'send
  5954.                Call BuildAttendeeLists(1, note)
  5955.                
  5956.                Call note.CopyAllItems( replaceNote, True )
  5957.                replaceNote.UniversalID = newunid$
  5958.                Call BuildAttendeeLists(2, replaceNote)
  5959.                
  5960.                Call ConvertToInvitation( unid$ )
  5961.           Else
  5962.                'reschedule
  5963.                GetMailingList
  5964.                
  5965.                Call note.CopyAllItems( replaceNote, True )
  5966.                replaceNote.UniversalID = newunid$
  5967.                
  5968.                Call ConvertToNotice( "Reschedule -", ORS_MSGTYPE_RESCHEDULE, 33, 1, unid$ )
  5969.                note.SendTo = MailingList
  5970.                wNotifyUser "The invitees have been notified that the appointment has changed."
  5971.                
  5972.                'Make sure the Broadcast item is set correctly.
  5973.                '(This is a work around for the "checkbox is hidden and enabled" bug.)
  5974.                If (note.HasItem("PreserveBroadcast")) Then note.Broadcast = "1"
  5975.           End If
  5976.           Gosub SaveTheReplaceNote
  5977.           
  5978.           note.SaveOptions = "0"
  5979.           note.MailOptions = "1"
  5980.           note.From = note.tmpFrom
  5981.      End If
  5982.      
  5983.      If Not Continue Then
  5984.           note.SaveOptions = "0"
  5985.           note.MailOptions = "0"
  5986.      End If
  5987.      
  5988.      pos% = Instr (pathinfo$, db.FileName)
  5989.      If pos% <> 0 Then 
  5990.           FilePathName$ = Left$(pathinfo$, pos% + Len (db.FileName))
  5991.           If (taction%  = 0) Then
  5992.                If (note.ViewArguments(0) <> " ") Then
  5993.                     argstr$ = note.ViewArguments(0)
  5994.                Else
  5995.                     argstr$ = "&Grid=" & profile.wCalGridType(0)
  5996.                End If
  5997.                
  5998.                If (note.WebMessageString(0) = "") Then 
  5999.                     Print "[" & FilePathName$ & "($Calendar)?OpenView" & argstr$ & "]"
  6000.                Else 
  6001.                     Call wMessagePageHeader
  6002.                     Print |<P><B>| & note.WebMessageString(0) 
  6003.                End If 
  6004.                Call note.RemoveItem( "ViewArguments" )
  6005.           Else
  6006.                Call note.RemoveItem( "docUNID" )
  6007.                Print "[" & FilePathName$ & "wCommand?OpenAgent&FixUp=" & newunid$ & "]"
  6008.                Call MarkTempFields( note )
  6009.                Exit Sub
  6010.           End If
  6011.      Else
  6012.           If (note.transTargetAction(0) = 0) Then
  6013.                If (note.WebMessageString(0) = "") Then 
  6014.                     Print "The document was saved."
  6015.                Else
  6016.                     Print note.WebMessageString(0) 
  6017.                End If 
  6018.           Else
  6019.                Print "Error: Could not find Path_Info for Target Action."
  6020.           End If
  6021.           Call note.RemoveItem( "ViewArguments" )
  6022.      End If
  6023.      
  6024.      Call MarkTempFields( note )
  6025.      Call note.RemoveItem( "WebMessageString" )
  6026.      Exit Sub
  6027.      
  6028. SaveTheReplaceNote:
  6029.      replaceNote.WebMessageString = note.WebMessageString(0)
  6030.      replaceNote.MailOptions = "0"
  6031.      replaceNote.SaveOptions = "1"
  6032.      Dim nItem As NotesItem
  6033.      Set nItem = replaceNote.AppendItemValue("$$OrigNoteUNID", unid$)
  6034.      
  6035.      Call MarkTempFields( replaceNote )
  6036.      Call replaceNote.RemoveItem( "SendTo" )
  6037.      Call replaceNote.RemoveItem( "CopyTo" )
  6038.      If (replaceNote.Broadcast(0) = "1") Then replaceNote.PreserveBroadcast = "1"
  6039.      Call replaceNote.Save(True, True, True)
  6040.      Return
  6041.      
  6042. ErrorRoutine:
  6043.      Print Error & " (wAppointmentSave)"
  6044.      Exit Sub
  6045. End Sub
  6046. '++LotusScript Development Environment:2:2:Queryopen:1:8
  6047. Sub Queryopen
  6048.      note.tmpOwner = Owner
  6049.      If (note.IsResponse) Then 
  6050.           Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
  6051.           If (parentnote Is Nothing) Then
  6052. 'this must be part of a repeat set -> we do not call GetParentDocument because that function is used to recreate the parent if it can't be found
  6053. 'we do not need to create the parent document since this was part of a repeat set                
  6054.                If (note.HasItem("OrgRepeat")) Then
  6055.                     wNotifyUser "This calendar entry belonged to a repeat set." & _
  6056.                     "The parent document cannot be found so this entry was converted to a non-repeating entry. "
  6057.                     note.RemoveItem("$REF")
  6058.                     note.RemoveItem("$REFOPTIONS")
  6059.                     note.RemoveItem("OrgRepeat")
  6060.                End If
  6061.           End If
  6062.      End If
  6063.      
  6064. 'we need to get the original start and end date times
  6065.      OriginalStartDate = note.StartDateTime
  6066.      OriginalEndDate = note.EndDateTime
  6067.      OriginalType = note.AppointmentType(0)
  6068.      
  6069.      If (note.AppointmentType(0) <> "3") Then 
  6070.           If (note.HasItem("WebPrevCalEntryType")) Then
  6071.                If (note.WebPrevCalEntryType(0) <> "3") Then
  6072.                     Exit Sub
  6073.                End If
  6074.           Else
  6075.                Exit Sub
  6076.           End If
  6077.      End If
  6078.      
  6079.      If Not (note.tmpOwner(0) = Owner) Then 
  6080.           Call note.RemoveItem("MailOptions")
  6081.           note.SendTo = ""
  6082.           note.CopyTo = ""
  6083.      Else
  6084. 'we are the chair
  6085.           If (note.IsResponse) Then
  6086. 'this is a repeat instance; we need to add our parent's required & optional attendees               
  6087.                OriginalRequired = parentnote.RequiredAttendees
  6088.                OriginalOptional = parentnote.OptionalAttendees
  6089.                OriginalRoom = parentnote.Room(0)
  6090.                Call CreateInviteeTable(parentnote)
  6091.           Else
  6092.                OriginalRequired = note.RequiredAttendees
  6093.                OriginalOptional = note.OptionalAttendees
  6094.                OriginalRoom = note.Room(0)
  6095.                Call CreateInviteeTable(note)
  6096.           End If
  6097.      End If
  6098.      Exit Sub
  6099.      
  6100. ErrorRoutine:
  6101.      wNotifyUser Error & " (QueryOpen)"
  6102.      Exit Sub
  6103. End Sub
  6104. '++LotusScript Development Environment:2:2:Postopen:1:8
  6105. Sub Postopen(Isnewdoc As Variant)
  6106.      On Error Goto ErrorRoutine
  6107.      
  6108. 'if this is a new document we need to set up some defaults
  6109.      If IsNewDoc Then
  6110.           Set trdr = session.CreateDateRange
  6111.           note.Principal = Owner
  6112.           note.ExcludeFromView = "D"
  6113.           note.Chair = Owner
  6114.           If (profile.CalEntryType(0) = "1") Then note.BookFreeTime = "1"
  6115.           NewDocument = True
  6116.      End If
  6117.      
  6118.      note.tmpApptFlags = note.AppointmentType
  6119.      note.tmpOwner = Owner
  6120.      Exit Sub
  6121.      
  6122. ErrorRoutine:
  6123.      wNotifyUser Error & " (Postopen)"
  6124.      Exit Sub
  6125. End Sub
  6126. '++LotusScript Development Environment:2:2:Postrecalc:1:8
  6127. Sub Postrecalc
  6128.      Dim startitem As NotesItem
  6129.      Dim enditem As NotesItem
  6130.      
  6131.      On Error Goto ErrorRoutine
  6132.      
  6133. 'if there is no chair item and there should be, add it
  6134.      If Not(note.HasItem("Chair")) Then note.Chair = Owner
  6135.      
  6136.      'if the user is attempting to change the appointment type of a repeating meeting, don't let them
  6137.      If Not(NewDocument) And (note.HasItem("OrgRepeat")) And _ 
  6138.      (note.IsResponse) And note.HasItem("WebPrevCalEntryType") Then
  6139.           If (note.WebPrevCalEntryType(0) <> note.AppointmentType(0)) Then 
  6140.                note.AppointmentType = note.WebPrevCalEntryType
  6141.                wNotifyUser "Warning: You are not allowed to change the appointment type of a repeating meeting."
  6142.           End If
  6143.      End If
  6144.      
  6145.      Dim dateitem As NotesItem
  6146.      Dim timeitem As NotesItem
  6147.      Dim duritem As NotesItem
  6148.      
  6149.      Dim datestring As String
  6150.      Dim timestring As String
  6151.      Set trdr = session.CreateDateRange
  6152.      
  6153.      If (note.AppointmentType(0) = "0") Or (note.AppointmentType(0) = "3") Then
  6154. 'this is a personal appointment or a meeting
  6155.           Set dateitem = note.GetFirstItem("StartDate")
  6156.           datestring = Datevalue(dateitem.DateTimeValue.LSLocalTime)
  6157.           
  6158.           Set timeitem = note.GetFirstItem("StartTime")
  6159.           timestring = Timevalue(timeitem.DateTimeValue.LSLocalTime)
  6160.           
  6161.           Set startdt = New NotesDateTime(datestring & " " & timestring)
  6162.           
  6163.           Set duritem = note.GetFirstItem("DurationMin")
  6164.           Set enddt = New NotesDateTime(startdt.LocalTime) 
  6165.           Call enddt.AdjustMinute( Cint ( duritem.Text ) )
  6166.           
  6167.           trdr.Text = startdt.LocalTime & " - " & enddt.LocalTime
  6168.           
  6169.           Set note.StartDateTime = startdt
  6170.           Set note.EndDateTime = enddt
  6171.           Set note.StartDate = startdt               
  6172.           Set trdr.StartDateTime = startdt
  6173.           Set trdr.EndDateTime = enddt
  6174.           Set note.TimeRange = trdr
  6175.           
  6176.           Call note.ReplaceItemValue("$NoPurge", note.EndDateTime(0))
  6177.      Elseif (note.AppointmentType(0) = "4") Then
  6178. 'this is a reminder               
  6179.           Set dateitem = note.GetFirstItem("StartDate")
  6180.           datestring = Datevalue(dateitem.DateTimeValue.LSLocalTime)
  6181.           Set timeitem = note.GetFirstItem("StartTime")
  6182.           timestring = Timevalue(timeitem.DateTimeValue.LSLocalTime)
  6183.           Set remdt = New NotesDateTime(datestring & " " & timestring)
  6184.           Set note.StartDateTime = remdt
  6185.           note.ReminderTime = note.StartDateTime
  6186.           note.StartDate = note.StartDateTime
  6187.           Call note.RemoveItem("EndDateTime")
  6188.           Call note.RemoveItem("TimeRange")
  6189.           Call note.ReplaceItemValue("$NoPurge",note.StartDateTime(0))
  6190.      Else
  6191. '1 or 2, this is an aniversary or event
  6192.           Set Intl = session.INternational
  6193.           Set dateitem = note.GetFirstItem("StartDate")
  6194.           datestring = Datevalue(dateitem.DateTimeValue.LSLocalTime)
  6195.           Set startdt = New NotesDateTime(datestring & " 00" & Intl.Timesep & "00" & Intl.Timesep & "01")
  6196.           Set note.StartDateTime = startdt
  6197.           Set enddt = New NotesDateTime(note.StartDateTime(0))
  6198.           enddt.AdjustDay(note.Duration(0) - 1)
  6199.           enddt.AdjustHour(23)
  6200.           enddt.AdjustMinute(59)
  6201.           Set note.EndDateTime = enddt
  6202.           Call note.ReplaceItemValue("$NoPurge", note.EndDateTime(0))
  6203.      End If
  6204.      
  6205. 'Reminder's should always have a $BusyPriority of 2
  6206.      If (note.AppointmentType(0) = "4") Or (note.BookFreeTime(0) = "1") Then
  6207.           Call note.ReplaceItemValue("$BusyPriority","2")
  6208.      Else
  6209.           Call note.ReplaceItemValue("$BusyPriority","1")               
  6210.      End If
  6211. 'if this is a reminder, remove the $BusyName
  6212.      If (note.AppointmentType(0) = "4") Or (note.HasItem("RepeatFor"))Then
  6213.           Call note.removeItem("$BusyName")          
  6214.      Else 
  6215.           Call note.replaceItemValue("$BusyName",Owner)
  6216.      End If
  6217.      note.CalendarDateTime = note.StartDateTime     
  6218. 'add the correct icon to the view, as well as the conflict checking value
  6219.      Select Case note.AppointmentType(0)
  6220.      Case "0" 
  6221.           Call note.ReplaceItemValue("_ViewIcon",160)
  6222.           note.OrgDontDoubleBook = profile.ConflictMeeting(0)
  6223.           note.OrgTable = ORS_ITEM_CALENDAR
  6224.      Case "1" 
  6225.           Call note.ReplaceItemValue("_ViewIcon",63)
  6226.           note.OrgDontDoubleBook = profile.ConflictAnniv(0)
  6227.           note.OrgTable = ORS_ITEM_ANNIVERSARY
  6228.      Case "2" 
  6229.           Call note.ReplaceItemValue("_ViewIcon",9)
  6230.           note.OrgDontDoubleBook = profile.ConflictEvent(0)
  6231.           note.OrgTable = ORS_ITEM_PLANNER          
  6232.      Case "3" 
  6233.           Call note.ReplaceItemValue("_ViewIcon",158)
  6234.           note.OrgDontDoubleBook = profile.ConflictMeeting(0)
  6235.           note.OrgTable = ORS_ITEM_CALENDAR
  6236.           num# = 1
  6237.           If Not(note.HasItem("SequenceNum")) Then note.SequenceNum = num#
  6238.      Case "4" 
  6239.           Call note.ReplaceItemValue("_ViewIcon",10)          
  6240.           note.OrgDontDoubleBook = ""
  6241.           note.OrgTable = ORS_ITEM_CALENDAR
  6242.           note.BookFreeTime = "1"
  6243.      End Select
  6244.      
  6245. 'if this is a meeting and the owner != chair, ensure that this is a meeting
  6246.      If (note.HasItem("Chair")) Then
  6247.           If (note.chair(0) <> Owner) Then note.AppointmentType = "3"
  6248.      End If
  6249.      
  6250.      'add the $PublicAccess item if this is a public document
  6251.      If (note.OrgConfidential(0) <> "1") Then 
  6252.           If Not (note.HasItem("$PublicAccess")) Then Call note.ReplaceItemValue("$PublicAccess","1")
  6253.      Else
  6254.           If (note.HasItem("$PublicAccess")) Then Call note.RemoveItem("$PublicAccess")
  6255.      End If
  6256.      
  6257. 'see if we are creating (or editting) a document in the past
  6258.      If (Owner = note.Chair(0)) And ((note.AppointmentType(0) <> "1") And (note.AppointmentType(0) <> "2")) And _
  6259.      Not(note.HasItem("RepeatFor")) Then
  6260.           Dim nowdt As NotesDateTime
  6261.           Dim apptdt As NotesDateTime
  6262.           Set nowdt = New NotesDateTime("")
  6263.           Call nowdt.SetNow
  6264.           Set apptdt = New NotesDateTime(note.StartDateTime(0))
  6265.           If nowdt.TimeDifference(apptdt) > 0 Then
  6266.                wNotifyUser "Warning: This appointment is being created in the past. "
  6267.           End If
  6268.      End If
  6269.      
  6270. 'if the invitee is modifying the date/time, see if they want to proceed
  6271.      If (Owner <> note.Chair(0) And note.HasItem("OriginalStartDate")) Then
  6272.           If (note.OriginalStartDate(0) <> note.StartDateTime(0)) Or (note.OriginalEndDate(0) <> note.EndDateTime(0))  Then
  6273.                wNotifyUser "Warning: You are not the originator of this entry and have changed the date/time. "
  6274.           End If 
  6275.      End If
  6276.      Exit Sub
  6277.      
  6278. ErrorRoutine:
  6279.      wNotifyUser Error & " (PostRecalc)"
  6280.      Exit Sub
  6281. End Sub
  6282. '++LotusScript Development Environment:2:2:Querysave:1:8
  6283. Sub Querysave(NewDocument As Variant, Continue As Variant)
  6284.      On Error Goto ErrorRoutine
  6285.      
  6286.      Dim NeedsReschedule As Variant
  6287.      
  6288. 'the first thing we do is make sure the document can be saved
  6289. 'if the current user is not the owner, and the HideEntries is set, warn the user     
  6290.      If (db.CurrentAccessLevel < ACLLEVEL_AUTHOR) And (note.OrgConfidential(0) = "1") Then
  6291.           wNotifyUser "You have indicated that you want this document hidden from public viewing, " & _
  6292.           "but you are considered a public viewer, and would no longer be able to see this document. " & _
  6293.           "This option was de-selected."
  6294.           note.OrgConfidential = ""
  6295.      End If
  6296.      
  6297. 'if this is not a new document, and the originaltype was an invitation but no longer is, make sure they want to proceed
  6298.      If Not(NewDocument) Then
  6299.           If (Owner = note.Chair(0))Then
  6300.                If ((note.WebPrevCalEntryType(0) = "3") And (note.AppointmentType(0) <> "3")) Then
  6301.                     wNotifyUser "Invitation documents cannot be changed to another type of calendar entry. " & _
  6302.                     "The changes made to this document have not been saved."
  6303.                     note.AppointmentType = "3"
  6304.                     Continue = False
  6305.                End If
  6306.           Else
  6307.                If (OriginalStartDate(0) <> note.StartDateTime(0)) Or (OriginalEndDate(0) <> note.EndDateTime(0)) Then
  6308.                     wNotifyUser "You are not the originator of this entry and you have changed the date/time of the meeting."
  6309.                End If
  6310.           End If    
  6311.      End If
  6312.      
  6313.      If (NewDocument) And (note.hasitem("RepeatFor")) And (note.AppointmentType(0) = "3") Then note.Broadcast = "1"
  6314.      
  6315.      On Error Goto ErrorRoutine
  6316.      
  6317.      If Not(note.HasItem("DocAuthors")) Then Set item = New NotesItem(note, "DocAuthors", note.From, AUTHORS)
  6318.      
  6319.      Exit Sub
  6320.      
  6321. ErrorRoutine:
  6322.      wNotifyUser Error & " (QuerySave)"
  6323.      Exit Sub
  6324. End Sub
  6325. '++LotusScript Development Environment:2:2:Queryclose:1:8
  6326. Sub Queryclose
  6327.      Dim InstanceWarned As Integer
  6328.      On Error Goto ErrorRoutine
  6329.      
  6330. 'if this is a parent document, check for PostedDate  
  6331.      If Not(NewDocument) Then
  6332.           If (note.AppointmentType(0) = "3") Then
  6333.                If note.HasItem("OriginalStartDate") Then
  6334.                     If (note.OriginalStartDate(0) <> note.StartDateTime(0)) Or _
  6335.                     (note.OriginalEndDate(0) <> note.EndDateTime(0)) Then 
  6336.                          IsDateChange = True
  6337.                     Else
  6338.                          IsDateChange = False
  6339.                     End If
  6340.                     IsRoomChange = False
  6341.                End If
  6342.                If (IsDateChange Or IsRoomChange) And (note.chair(0) = owner) Then
  6343.                     If (note.IsResponse) Then
  6344.                          If (parentnote.HasItem("PostedDate") Or (note.RequiredResources(0) <> "") Or _ 
  6345.                          (note.RoomRequired(0) = "1" And note.Room(0) <> "")) Then NeedsReschedule = True
  6346.                     Else
  6347.                          If (note.HasItem("PostedDate")) Or (note.RequiredResources(0) <> "") Or _
  6348.                          (note.RoomRequired(0) = "1" And note.Room(0) <> "") Then NeedsReschedule = True
  6349.                     End If
  6350.                End If
  6351.           End If    
  6352.      End If     
  6353.      
  6354.      If (NeedsReschedule) Then 
  6355.           num# = Cdbl( note.SequenceNum(0) + 1 )
  6356.           note.SequenceNum = num#
  6357.           note.transTargetAction = 2
  6358.      End If
  6359.      
  6360.      
  6361. 'see if we should invite the users/resources to this meeting
  6362.      If (note.AppointmentType(0) = "3") And (note.Chair(0) = Owner) Then     
  6363.           If (note.SendTo(0) <> "") Or (note.CopyTo(0) <> "") Then
  6364.                If (note.transTargetAction(0) = 2) Then
  6365.                     wNotifyUser "Additional invitations cannot been sent when rescheduling a meeting. " & _
  6366.                     "Please edit this document and invite those people again."
  6367.                     'note.transTargetAction = 3     'SendInvitation
  6368.                Else
  6369.                     wNotifyUser "This invitation was sent to the people you invited."
  6370.                     note.transTargetAction = 1     'SendInvitation
  6371.                End If
  6372.                
  6373.                If Not(note.hasitem("PostedDate")) Then
  6374.                     Dim posteddate As New NotesDateTime( "" )
  6375.                     Call posteddate.SetNow
  6376.                     Set note.PostedDate = posteddate
  6377.                End If                  
  6378.           End If                    
  6379.      End If        
  6380.      Exit Sub
  6381.      
  6382. ErrorRoutine:
  6383.      wNotifyUser Error & " (QueryClose)"
  6384.      Exit Sub
  6385. End Sub
  6386. '++LotusScript Development Environment:2:2:BuildAttendeeLists:1:8
  6387. Sub BuildAttendeeLists(mode As Integer, n As NotesDocument)
  6388.      Dim vSendToNames As Variant
  6389.      Dim vCopyToNames As Variant
  6390.      Dim vNewRequiredNames() As Variant
  6391.      Dim vNewOptionalNames() As Variant 
  6392.      Dim bInviteeExists As Integer
  6393.      Dim counter As Integer
  6394.      Dim newcounter As Integer
  6395.      Dim sCanonicalName As String
  6396.      Dim sDomainName As String
  6397.      Dim sNewNames() As String
  6398.      
  6399.      On Error Goto ErrorRoutine
  6400.      
  6401. 'get the sendto and copyto field values
  6402.      vSendToNames = n.SendTo
  6403.      vCopyToNames = n.CopyTo
  6404.      
  6405. 'determine why we are being called
  6406.      Select Case mode
  6407.      Case 1    'first time
  6408. 'we need to look for duplicate entries only if people have been invited
  6409. 'check RequiredAttendees
  6410.           If (vSendToNames(0) <> "") Then
  6411. 'initialize some variables
  6412.                Redim sNewNames(Ubound(vSendToNames))
  6413.                newcounter = 0               
  6414.                If (Isarray(OriginalRequired)) Then
  6415. 'required invitees already exist; copy them into a local variable                    
  6416.                     Redim vNewRequiredNames(Ubound(OriginalRequired) + Ubound(vSendToNames)+1)
  6417.                     Forall names In OriginalRequired
  6418.                          vNewRequiredNames(newcounter) = names
  6419.                          newcounter = newcounter+1
  6420.                     End Forall
  6421.                Else
  6422.                     Redim vNewRequiredNames(Ubound(vSendToNames))
  6423.                End If
  6424.                counter = 0
  6425.                Forall names In vSendToNames
  6426.                     Call GetNameComponents(Cstr(names),sCanonicalName,sDomainName)
  6427.                     bInviteeExists = FindInvitee(sCanonicalName)
  6428. 'if the invitee wasn't found, then add them keep them in the list and add them to the table
  6429.                     If (bInviteeExists = -1) Then
  6430.                          sNewNames(counter) = names
  6431.                          vNewRequiredNames(newcounter) = names                         
  6432.                          Call AddInviteeToInviteeTable(Cstr(names),"")
  6433.                          counter = counter + 1
  6434.                          newcounter = newcounter + 1
  6435.                     End If
  6436.                End Forall
  6437.                n.SendTo = sNewNames
  6438. 'we have to update the RequiredAttendees item so invitees can see who else has been invited               
  6439.                n.RequiredAttendees = vNewRequiredNames               
  6440.           End If
  6441. 'check OptionalAttendees
  6442.           If (vCopyToNames(0) <> "") Then
  6443. 'initialize some variables
  6444.                newcounter = 0               
  6445.                Redim sNewNames(Ubound(vCopyToNames))
  6446.                If (Isarray(OriginalOptional)) Then
  6447. 'optional invitees already exist; copy them into a local variable                    
  6448.                     Redim vNewOptionalNames(Ubound(OriginalOptional) + Ubound(vCopyToNames)+1)
  6449.                     Forall names In OriginalOptional
  6450.                          vNewOptionalNames(newcounter) = names
  6451.                          newcounter = newcounter+1
  6452.                     End Forall
  6453.                Else
  6454.                     Redim vNewOptionalNames(Ubound(vCopyToNames))
  6455.                End If
  6456.                counter = 0
  6457.                Forall names In vCopyToNames
  6458.                     Call GetNameComponents(Cstr(names), sCanonicalName, sDomainName)
  6459.                     bInviteeExists = FindInvitee(sCanonicalName)
  6460. 'if the invitee wasn't found, then add them keep them in the list and add them to the table
  6461.                     If (bInviteeExists = -1) Then
  6462.                          sNewNames(counter) = names
  6463.                          vNewOptionalNames(newcounter) = names                         
  6464.                          Call AddInviteeToInviteeTable(Cstr(names), "")
  6465.                          counter = counter + 1
  6466.                          newcounter = newcounter + 1
  6467.                     End If
  6468.                End Forall
  6469.                n.CopyTo = sNewNames
  6470.                n.OptionalAttendees = vNewOptionalNames
  6471.           End If
  6472.      Case 2     'second & final time being called
  6473. 'we need to update the RequiredAttendees and OptionalAttendees fields
  6474. 'first, update the RequiredAttendees item only if there are values in the SendTo item
  6475.           If (vSendToNames(0) <> "") Then
  6476. 'intialize variables
  6477.                newcounter = 0               
  6478.                If (Isarray(OriginalRequired)) Then
  6479. 'required invitees already exist; copy them into a local variable                    
  6480.                     Redim vNewRequiredNames(Ubound(OriginalRequired) + Ubound(vSendToNames)+1)
  6481.                     Forall names In OriginalRequired
  6482.                          vNewRequiredNames(newcounter) = names
  6483.                          newcounter = newcounter+1
  6484.                     End Forall
  6485.                Else
  6486.                     Redim vNewRequiredNames(Ubound(vSendToNames))
  6487.                End If
  6488. 'add the sendto names
  6489.                Forall names In vSendToNames
  6490.                     vNewRequiredNames(newcounter) = names
  6491.                     newcounter = newcounter + 1
  6492.                End Forall
  6493.                n.RequiredAttendees = vNewRequiredNames
  6494.           End If
  6495. 'update the OptionalAttendees item only if there are values in the CopyTo item
  6496.           If (vCopyToNames(0) <> "") Then
  6497. 'intialize variables
  6498.                newcounter = 0               
  6499.                If (Isarray(OriginalOptional)) Then
  6500. 'optional invitees already exist; copy them into a local variable                    
  6501.                     Redim vNewOptionalNames(Ubound(OriginalOptional) + Ubound(vCopyToNames)+1)
  6502.                     Forall names In OriginalOptional
  6503.                          vNewOptionalNames(newcounter) = names
  6504.                          newcounter = newcounter+1
  6505.                     End Forall
  6506.                Else
  6507.                     Redim vNewOptionalNames(Ubound(vCopyToNames))
  6508.                End If
  6509. 'add the copyto names
  6510.                Forall names In vCopyToNames
  6511.                     vNewOptionalNames(newcounter) = names
  6512.                     newcounter = newcounter + 1
  6513.                End Forall
  6514.                n.OptionalAttendees = vNewOptionalNames 
  6515.           End If   
  6516.      Case Else
  6517.      End Select
  6518.      Exit Sub
  6519.      
  6520. ErrorRoutine:
  6521.      wNotifyUser Error & " (BuildAttendeeList)"
  6522.      Exit Sub
  6523. End Sub
  6524. '++LotusScript Development Environment:2:2:ConvertToInvitation:1:8
  6525. Sub ConvertToInvitation( unidstr As String )
  6526.      On Error Goto ErrorRoutine
  6527.      
  6528. 'if we have never invited anyone, add the SequenceNum item
  6529.      If Not note.HasItem(SequenceNum) Then note.SequenceNum = 1
  6530.      
  6531. 'modify the appointment document so it is an invitation
  6532.      note.Form  = "Notice"
  6533.      note.NoticeType = ORS_MSGTYPE_INVITE
  6534.      note.Topic = note.Subject
  6535.      note.apptunid = unidstr
  6536.      If (note.Broadcast(0) = "1") Then
  6537.           MailSubject$ = "Broadcast - "
  6538.      Else
  6539.           MailSubject$ = "Invitation - "
  6540.      End If
  6541.      Set startitem = note.GetFirstItem("StartDateTime")
  6542.      If (note.Room(0) <> "") Then
  6543.           note.Subject = MailSubject$ & note.Subject(0) & _
  6544.           " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
  6545.      Else
  6546.           note.Subject =  MailSubject$ & note.Subject(0) & _
  6547.           " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
  6548.      End If
  6549.      
  6550.      Call note.ReplaceItemValue("_ViewIcon",133)
  6551.      note.Principal = Owner
  6552.      note.Chair = Owner
  6553.      
  6554. 'remove fields that will need to be added later
  6555.      Call note.RemoveItem("CalendarDateTime")
  6556.      Call note.RemoveItem("OrgTable")
  6557.      Call note.RemoveItem("$BusyName")
  6558.      Call note.RemoveItem("$BusyPriority")
  6559.      Call note.RemoveItem("tmpOwner")
  6560.      
  6561.      Exit Sub
  6562.      
  6563. ErrorRoutine:
  6564.      wNotifyUser Error & " (ConvertToInvitation)"
  6565.      Exit Sub
  6566. End Sub
  6567. '++LotusScript Development Environment:2:2:ConvertToNotice:1:8
  6568. Sub ConvertToNotice (Subject As String, NoticeType As String, ViewIcon As Integer, Mode As Integer, newunid As String)
  6569.  *Parameters
  6570.     Subject -> value of subject item
  6571.     NoticeType -> type of notice being sent
  6572.     ViewIcon -> icon to display in view
  6573.     Mode -> 1 = chair is sending, 2 = invitee is sending
  6574. %END REM
  6575.      
  6576.      Dim ChairItem As NotesItem
  6577.      Dim dummydoc As NotesDocument
  6578.      Dim replaceNote As NotesDocument
  6579.      On Error Resume Next
  6580.      Set replaceNote = db.GetDocumentByUNID(newunid)
  6581.      If replaceNote Is Nothing Then wNotifyUser "Error in ConvertToNotice"
  6582.      On Error Goto ErrorRoutine
  6583.      
  6584.      Set dummydoc = New NotesDocument(db)
  6585.      unid$ = dummydoc.UniversalID
  6586.      dummydoc.UniversalID = newunid
  6587.      Call note.MakeResponse(dummydoc)
  6588.      note.ApptUNID = newunid
  6589.      note.UniversalID = unid$
  6590.      
  6591.      Call note.ReplaceItemValue("$RefOptions","1")
  6592.      
  6593.      note.Form = "Notice"
  6594.      note.Principal = Owner
  6595.      note.NoticeType = NoticeType
  6596.      
  6597. 'add the required attendees -> we need to know what context the current document is in
  6598. 'this is because non-repeat notices, repeat notices, and non-repeat appointments have this information
  6599. 'repeat instances need to get this info from their parent
  6600.      Select Case Context
  6601.      Case 1,3,4
  6602. '1 = non-repeat notice,3 = repeat notice,4 = non-repeat instance -> get the values from the current note
  6603.           'note.RequiredAttendees = note.RequiredAttendees
  6604.           'note.OptionalAttendees = note.OptionalAttendees
  6605.      Case 2
  6606. 'the repeat instance document does not have this information -> get it from the parent
  6607.           note.RequiredAttendees = parentnote.RequiredAttendees
  6608.           note.OptionalAttendees = parentnote.OptionalAttendees
  6609.      End Select
  6610.      Call note.ReplaceItemValue("_ViewIcon", ViewIcon)
  6611.      'If (note.HasItem("$PublicAccess")) Then Call notice.ReplaceItemValue("$PublicAccess","1")
  6612.      If note.HasItem("tmpRescheduleWhich") Then 
  6613.           If (NoticeType = ORS_MSGTYPE_STATUSUPDATE) Then
  6614.                note.RescheduleWhich = "0" 'just this one
  6615.           Else
  6616.                note.RescheduleWhich = note.tmpRescheduleWhich
  6617.           End If
  6618.      End If
  6619.      
  6620. 'add computed items
  6621.      If (mode = 1) Then
  6622. 'we are the chair sending this out
  6623.           note.Topic = note.Subject
  6624.           Set startitem = note.GetFirstItem("StartDateTime")
  6625.           If (note.Room(0) <> "") Then               
  6626.                note.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
  6627.           Else
  6628.                note.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
  6629.           End If
  6630.           note.Chair = Owner
  6631. 'we do not add the send to for chairs; this is upto the calling function
  6632.      Else
  6633. 'we are the invitee sending this out
  6634.           note.Subject = Subject & " " & note.Topic(0)
  6635.      End If
  6636.      
  6637.      Call note.RemoveItem("CalendarDateTime")
  6638.      Call note.RemoveItem("OrgTable")
  6639.      Call note.RemoveItem("$BusyName")
  6640.      Call note.RemoveItem("$BusyPriority")
  6641.      Call note.RemoveItem("appType")
  6642.      Call note.RemoveItem("ReminderTime")
  6643.      Call note.RemoveItem("Duration")
  6644.      Call note.RemoveItem("$ExpandGroups")
  6645.      Call note.RemoveItem("TimeRange")
  6646.      Call note.RemoveItem("$NoPurge")
  6647.      Call note.RemoveItem("OrgDontDoubleBook")
  6648.      Call note.RemoveItem("DocAuthors")
  6649.      Call note.RemoveItem("WebPrevCalEntryType")
  6650.      Call note.RemoveItem("OriginalStartDate")
  6651.      Call note.RemoveItem("OriginalEndDate")
  6652.      Call note.RemoveItem("OriginalRoom")
  6653.      Call note.RemoveItem("TimeRangeText")
  6654.      Call note.RemoveItem("BookFreeTime")
  6655.      Call note.RemoveItem("OrgConfidential")
  6656.      Exit Sub
  6657.      
  6658. ErrorRoutine:
  6659.      wNotifyUser Error & " (ConvertToNotice)"
  6660.      Exit Sub
  6661. End Sub
  6662. [L    KH
  6663. [L    KH
  6664. KL    .D
  6665. KL    .h
  6666. }D%K,
  6667. O=Lotus Notes
  6668. O=Lotus Notes
  6669. PURSAFO
  6670. |.:#U
  6671. O=Lotus Notes
  6672. CN=Lotus Notes Template Development/O=Lotus Notes
  6673. PURSAFO
  6674. Fde!f^^
  6675. $TITLE
  6676. $AssistType
  6677. $AssistLastRun
  6678. $AssistDocCount
  6679. $AssistFlags
  6680. $AssistTrigger
  6681. $AssistInfo
  6682. $AssistQuery
  6683. $AssistAction
  6684. $AssistAction_Ex
  6685. '++LotusScript Development Environment:2:5:(Options):0:74
  6686. Option Public
  6687. Use "WebLib"
  6688. Use "SharedWorkflowLibrary"
  6689. Use "NoticeResponses"
  6690. '++LotusScript Development Environment:2:5:(Forward):0:1
  6691. Declare Sub Initialize
  6692. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6693. Dim startdt As NotesDateTime
  6694. Dim enddt As NotesDateTime
  6695. Dim trdr As NotesDateRange
  6696. Dim Intl As NotesInternational
  6697. Dim tmpList() As Variant
  6698. Dim SelectedDate As Variant
  6699. Dim AppointmentAlarms As Integer
  6700. Dim AnniversaryAlarms As Integer
  6701. Dim EventAlarms As Integer
  6702. Dim DocWasSaved As Integer
  6703. Dim ErrorStatus As Integer
  6704. Dim AlarmSet As Integer
  6705. Dim InAlarmFolder As Integer 
  6706. 'For Notice form processing
  6707. Dim collection As NotesDocumentCollection
  6708. Dim nam As NotesName
  6709. Dim NewForm As String
  6710. '++LotusScript Development Environment:2:2:Initialize:1:10
  6711. Sub Initialize
  6712.      IsWebClient = True
  6713.      On Error Goto ErrorRoutine
  6714.      
  6715.      Call wInstantiateObjectVariables
  6716.      Call wGetOrMakeCalendarProfile
  6717.      note.tmpOwner = Owner
  6718.      
  6719.      Dim check As Variant
  6720.      
  6721.      QueryString$ = note.Query_String(0)
  6722.      openform$ = "OpenForm"
  6723.      If (0 <> Instr(1, QueryString$, openform$, 1)) Then
  6724.           'new document, therefore, we're generating an RSVP to an invitation
  6725.           unid$ = "&UNID="
  6726.           pos% = Instr (QueryString$, unid$)
  6727.           If (pos% = 0) Then Goto ArgumentsNotFound
  6728.           
  6729.           'fetch the remainder of the string
  6730.           UNIDnote$ = Right$(QueryString$, Len (QueryString$) - (Len (unid$) + pos%) + 1)
  6731.           
  6732.           'check for the "check" argument
  6733.           pos% = Instr (QueryString$, "&Check")
  6734.           If (pos% <> 0) Then
  6735.                UNIDnote$ = Left$(UNIDnote$, pos% - 1)
  6736.                check = True
  6737.           Else
  6738.                check = False
  6739.           End If
  6740.           
  6741.           'grab the actual invitation notice
  6742.           On Error Resume Next
  6743.           Set notice = db.GetDocumentByUNID( UNIDnote$ )
  6744.           On Error Goto ErrorRoutine
  6745.           If notice Is Nothing Then Goto ArgumentsNotFound
  6746.           
  6747.           newunid$ = note.UniversalID
  6748.           Call notice.CopyAllItems( note, True )
  6749.           note.UniversalID = newunid$
  6750.           note.tmpUNIDnote = UNIDnote$
  6751.           
  6752.           Dim BodyItem As NotesItem
  6753.           If (notice.HasItem("Body")) Then
  6754.                Set BodyItem = notice.GetFirstItem("Body")     
  6755.                Call note.CopyItem(BodyItem,"WebInvitationBody")
  6756.           End If
  6757.           
  6758. 'populate the new notice with the contents of the actual notice
  6759.           ChairCN = Evaluate("@Name([CN];Chair)", note)
  6760.           PrincipalCN = Evaluate("@Name([CN];Principal)", note)
  6761.           'FromCN = Evaluate("@Name([CN];From)", note)
  6762.           DelegeeCN = Evaluate("@Name([CN];Delegee)", note)
  6763.           
  6764.           note.tmpWhoLabel = ""
  6765.           note.tmpWho = ""
  6766.           Select Case notice.NoticeType(0)
  6767.           Case "I"
  6768.                note.tmpLabel = "Invitation"
  6769.           Case "U"
  6770.                note.tmpLabel = "Reschedule"
  6771.           Case "C"
  6772.                note.tmpLabel = "Cancelled"
  6773.           Case "D"
  6774.                note.tmpLabel = "Delegated Invitation"
  6775.                If (note.tmpOwner(0) <> notice.Chair(0)) Then
  6776.                     note.tmpWhoLabel = "Delegated to:"
  6777.                     note.tmpWho = DelegeeCN(0)
  6778.                Else
  6779.                     note.tmpWhoLabel = "Delegated by:"
  6780.                     note.tmpWho = PrincipalCN(0) & " (to " & DelegeeCN(0) & ")"
  6781.                End If
  6782.           Case "S"
  6783.                note.tmpLabel = "Status Update"
  6784.           Case "N"
  6785.                note.tmpLabel = "Confirmation"
  6786.           Case "J"
  6787.                note.tmpLabel = "Counter Proposal Declined"
  6788.           Case "A"
  6789.                note.tmpLabel = "Acceptance"
  6790.                note.tmpWhoLabel = "Accepted by:"
  6791.                note.tmpWho = PrincipalCN(0)
  6792.           Case "R"
  6793.                note.tmpLabel = "Declined"
  6794.                note.tmpWhoLabel = "Declined by:"
  6795.                note.tmpWho = PrincipalCN(0)
  6796.           Case "L"
  6797.                note.tmpLabel = "Delegation"
  6798.                note.tmpWhoLabel = "Delegated by:"
  6799.                note.tmpWho = PrincipalCN(0)
  6800.           Case "T"
  6801.                note.tmpLabel = "Original Meeting"
  6802.                note.tmpWhoLabel = "Counter proposal by:"
  6803.                note.tmpWho = PrincipalCN(0)
  6804.           Case "P"
  6805.                note.tmpLabel = "Pencilled In"
  6806.           Case Else 
  6807.                note.tmpLabel = "Notice"
  6808.           End Select
  6809.           
  6810.           note.tmpOriginator = ChairCN(0)
  6811.           note.tmpStartDate = note.StartDateTime
  6812.           note.tmpEndDate = note.EndDateTime
  6813.           note.tmpRoom = note.Room
  6814.           note.tmpTopic = note.Topic
  6815.           
  6816.           AttendeeList = Evaluate(|@Trim( @Implode( @ReplaceSubstring( @Explode( RequiredAttendees; ";"):@Explode( OptionalAttendees; ";"); "CN=":"OU=":"O=":"C=" ; "":"":"":""); ", " ))|, note)
  6817.           note.tmpAttendeeList = Left$ ( AttendeeList(0), Len(AttendeeList(0))  - 1 )
  6818.           
  6819.      Else
  6820.           'existing document, therefore, we're opening an invitation for display, or
  6821.           'editting a broadcast notice to add to calendar w/out sending RSVP
  6822.           check = True
  6823.           
  6824.           'make the CheckForNoticeUpdates work correctly ...
  6825.           Set notice = note
  6826.      End If
  6827.      
  6828.      If (note.IsResponse) Then 
  6829.           Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
  6830.      End If
  6831.      If Not (note.tmpOwner(0) = note.Chair(0)) And check Then CheckForNoticeUpdates
  6832.      
  6833.      Exit Sub
  6834.      
  6835. MissingParent:
  6836.      Messagebox "Parent document not found (wNoticeOpen)"
  6837.      Exit Sub
  6838.      
  6839. ArgumentsNotFound:
  6840.      Messagebox "Arguments Not Found (" & QueryString$ & ") (wNoticeOpen)"
  6841.      Exit Sub
  6842.      
  6843. ErrorRoutine:
  6844.      Messagebox Error & " (wNoticeOpen)"
  6845.      Exit Sub
  6846. End Sub
  6847. Chair
  6848.     0S0E
  6849. Principal
  6850.     0S0E
  6851. Delegee
  6852.     0S0E
  6853. RequiredAttendees
  6854. OptionalAttendees
  6855.     2S4S6S8S10S15S17S20S27S28S37S38S
  6856. O=Lotus Notes
  6857. O=Lotus Notes
  6858. PURSAFO
  6859. |.:#U
  6860. O=Lotus Notes
  6861. CN=Lotus Notes Template Development/O=Lotus Notes
  6862. PURSAFO
  6863. Fde!f^^
  6864. :W&KV
  6865. $TITLE
  6866. $AssistType
  6867. $AssistLastRun
  6868. $AssistDocCount
  6869. $AssistFlags
  6870. $AssistTrigger
  6871. $AssistInfo
  6872. $AssistQuery
  6873. $AssistAction
  6874. $AssistAction_Ex
  6875. '++LotusScript Development Environment:2:5:(Options):0:74
  6876. Option Public
  6877. Use "WebLib"
  6878. Use "SharedWorkflowLibrary"
  6879. Use "NoticeResponses"
  6880. '++LotusScript Development Environment:2:5:(Forward):0:1
  6881. Declare Sub Initialize
  6882. Declare Sub Queryopen
  6883. Declare Sub Querysave(Continue As Variant)
  6884. Declare Sub Queryclose
  6885. Declare Sub wwGetCalendarProfile
  6886. Declare Sub AcceptInvitation
  6887. Declare Sub DeclineInvitation
  6888. Declare Sub ConvertToNotice(Subject As String, NoticeType As String, ViewIcon As Integer, Mode As Integer)
  6889. Declare Function wGetParentDocument() As Integer
  6890. Declare Sub UpdateOriginalNote
  6891. Declare Sub RemoveFields
  6892. Declare Sub wUpdateOriginalInvitation (orgnote As NotesDocument)
  6893. Declare Sub xUpdateOriginalInvitation (orgnote As NotesDocument)
  6894. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6895. Dim startdt As NotesDateTime
  6896. Dim enddt As NotesDateTime
  6897. Dim trdr As NotesDateRange
  6898. Dim Intl As NotesInternational
  6899. Dim tmpList() As Variant
  6900. Dim SelectedDate As Variant
  6901. Dim AppointmentAlarms As Integer
  6902. Dim AnniversaryAlarms As Integer
  6903. Dim EventAlarms As Integer
  6904. Dim ErrorStatus As Integer
  6905. Dim AlarmSet As Integer
  6906. Dim InAlarmFolder As Integer 
  6907. 'For Notice form processing
  6908. Dim collection As NotesDocumentCollection
  6909. Dim nam As NotesName
  6910. Dim NewForm As String
  6911. '++LotusScript Development Environment:2:2:Initialize:1:10
  6912. Sub Initialize
  6913.      IsWebClient = True
  6914.      Dim Isnewdoc As Variant
  6915.      Dim Continue As Variant
  6916.      Continue = True
  6917.      
  6918.      Call wInstantiateObjectVariables
  6919.      Call wwGetCalendarProfile
  6920.      
  6921.      On Error Goto ErrorRoutine
  6922.      On Error 4005 Resume Next   'this will handle the parentnote not being found
  6923.      
  6924.      QueryString$ = note.Query_String(0)
  6925.      If (0 <> Instr(1, QueryString$, "EditDocument", 1)) Then
  6926.           'we are saving a broadcasted Notice
  6927.           note.tmpAction = "AddCalendar"
  6928.           Set notice = note
  6929.           tmpOutOfInBox$ = note.tmpOutOfInBox_1(0)
  6930.      Else
  6931.           'we are RSVPing to a non-broadcasted Notice
  6932.           
  6933.           'grab the actual invitation notice
  6934.           On Error Resume Next
  6935.           Set notice = db.GetDocumentByUNID( note.tmpUNIDnote(0) )
  6936.           On Error Goto ErrorRoutine
  6937.           If notice Is Nothing Then Goto MissingOrigDoc
  6938.           
  6939.           tmpRSVPAction$ = note.tmpRSVPAction(0)
  6940.           
  6941.          'save user input
  6942.           tmpOutOfInBox$ = note.tmpOutOfInBox(0)
  6943.           Comments$ = note.Comments(0)
  6944.           Importance$ = note.Importance(0)
  6945.           DeliveryPriority$ = note.DeliveryPriority(0)
  6946.           DeliveryReport$ = note.DeliveryReport(0)
  6947.           
  6948.           'populate with original notice
  6949.           newunid$ = note.UniversalID
  6950.           Call notice.CopyAllItems( note, True )
  6951.           note.UniversalID = newunid$
  6952.           
  6953.           'restore user input
  6954.           note.Comments = Comments$
  6955.           note.Importance = Importance$
  6956.           note.DeliveryPriority = DeliveryPriority$
  6957.           note.DeliveryReport = DeliveryReport$
  6958.           
  6959.           'save stuff to our calendar entry, too
  6960.           notice.Comments = Comments$
  6961.           
  6962.           On Error 4412 Goto ErrNoAccess
  6963.           On Error Goto ErrorRoutine
  6964.           
  6965.           If (tmpRSVPAction$ = "1") Then
  6966.                note.tmpAction = "Accept"
  6967.           Else
  6968.                note.tmpAction = "Decline"
  6969.           End If  
  6970.      End If
  6971.      
  6972.      If (tmpOutOfInBox$ = "1") Then
  6973.           notice.RemoveFromFolder("($InBox)")
  6974.           If Not (note.IsNewNote) Then note.RemoveFromFolder("($InBox)")
  6975.      End If
  6976.      
  6977.      note.WebMessageString = ""
  6978.      Call Queryopen
  6979.      Call QuerySave(Continue)
  6980.      If Continue = True Then Call QueryClose
  6981.      
  6982.      pathinfo$ = note.Path_Info(0)
  6983.      pos% = Instr (pathinfo$, db.FileName)
  6984.      If pos% <> 0 Then 
  6985.           FilePathName$ = Left$(pathinfo$, pos% + Len (db.FileName))
  6986.      Else
  6987.           Print "Info_Path error in wNoticeSave.[<BR><BR>]" & note.WebMessageString(0)
  6988.           Exit Sub
  6989.      End If
  6990.      
  6991.      If note.tmpAction(0) = "Accept" Or note.tmpAction(0) = "Decline" And _
  6992.      (Not note.tmpAction(0) = "AddCalendar") Then
  6993.           Print "[" & FilePathName$ & "wCommand?OpenAgent&Remove=" & note.UniversalID & "]"
  6994.      Else
  6995.           If (note.WebMessageString(0) = "") Then 
  6996.                'Attempt to locate the source view in the url
  6997.                Dim view As NotesView
  6998.                found = False
  6999.                workstr$ = Right$ (pathinfo$, Len (pathinfo$) - (InfoPathPos% + Len (db.FileName)))
  7000.                pos%  = Instr (workstr$, "/")
  7001.                If (pos% <> 0 ) Then
  7002.                     targetview$ = Left$ (workstr$, pos% - 1)
  7003.                Else
  7004.                     pos%  = Instr (workstr$, "?")
  7005.                     If (pos% <> 0 ) Then
  7006.                          targetview$ = Left$ (workstr$, pos% - 1)
  7007.                     Else
  7008.                          targetview$ = workstr$
  7009.                     End If
  7010.                'is it a view name?
  7011.                     On Error Resume Next
  7012.                     Set view  = notesDatabase.GetView( viewName$ )
  7013.                     On Error Goto ErrorRoutine
  7014.                     If (view Is Nothing) Then 
  7015.                     'or is it a unid?
  7016.                          ViewList = db.Views
  7017.                          Forall tView In ViewList
  7018.                               If (tView.UniversalID = targetview$) Then
  7019.                                    found = True
  7020.                                    Exit Forall
  7021.                               End If
  7022.                          End Forall
  7023.                     End If
  7024.                End If
  7025.                If found Then
  7026.                     Print "[" & FilePathName$ & targetview$ & "]"
  7027.                Else
  7028.                     Print "[" & FilePathName$ & "($InBox)]"
  7029.                End If
  7030.           Else
  7031.                Call wMessagePageHeader
  7032.                Print |<P><B>| & note.WebMessageString(0)
  7033.           End If
  7034.           Call note.RemoveItem("WebMessageString")
  7035.      End If
  7036.      
  7037.      Call MarkTempFields( note )
  7038.      Exit Sub
  7039.      
  7040. ErrNoAccess:
  7041. 'make sure ErrorStatus = 0; this means the user does not have rights to edit the document     
  7042. 'if ErrorStatus > 0, then the Save failed     
  7043.      If (ErrorStatus = 0) Then 
  7044.           wNotifyUser "You are not an allowable editor of this invitation."
  7045.      Else
  7046.           wNotifyUser "An error was generated while attempting to send the RSVP."
  7047.      End If
  7048.      Print note.WebMessageString(0)
  7049.      Exit Sub
  7050.      
  7051. MissingOrigDoc:
  7052.      Print "Original invitation document not found (wNoticeOpen)"
  7053.      Exit Sub
  7054.      
  7055. ErrorRoutine:
  7056.      Print Error & " (wNoticeSave)"
  7057.      Exit Sub
  7058. End Sub
  7059. '++LotusScript Development Environment:2:2:Queryopen:1:8
  7060. Sub Queryopen
  7061.      On Error 4005 Resume Next   'we want to trap whenever the parentnote is nothing
  7062.      
  7063. 'if this is a response document, get the parent
  7064. 'we do this for both the chair and the invitee so we can detect missing parent documents    
  7065.      If (notice.IsResponse) Then 
  7066.           Call wGetParentDocument
  7067.           Call note.MakeResponse( parentnote )
  7068.      End If
  7069.      
  7070.      note.tmpOwner = Owner    
  7071. End Sub
  7072. '++LotusScript Development Environment:2:2:Querysave:1:8
  7073. Sub Querysave(Continue As Variant)
  7074.      ErrorStatus = 0
  7075.      
  7076. 'if the user had delegated the meeting invitation and is now trying to take a different action ,warn them
  7077. 'DOUBLE CHECK this behavior
  7078.      If (note.NoticeType(0) = ORS_MSGTYPE_DELEGATING) Or (note.HasItem("tmpDidDelegate")) Then
  7079.           Select Case note.tmpAction(0)
  7080.           Case "Accept","PencilIn","Decline","CounterPropose"
  7081.                Set nam = New NotesName(note.Delegee(0))
  7082.                
  7083.                wNotifyUser "You previously delegated this invitation to "& nam.Common & _
  7084.                ". By taking a different action now, the delegee will no longer receive any notifications " & _
  7085.                "relevant to this meeting. " & _
  7086.                "You may also have missed important change notifications (reschedule, cancellation) that " & _
  7087.                "were sent to the delegee by the Chairperson."
  7088.                
  7089.                note.NoticeType = ORS_MSGTYPE_DELEGATING
  7090.                note.RemoveItem("tmpDidDelegate") 
  7091.                note.RemoveItem("tmpUserActions") 
  7092.                ErrorStatus = 1
  7093.                continue = False
  7094.                Exit Sub
  7095.           End Select 
  7096.      End If
  7097.      
  7098.      If(note.NoticeType(0) = ORS_MSGTYPE_RESCHEDULE) Then
  7099.           If (note.SequenceNum(0) <= parentnote.sequencenum(0)) Then
  7100.                wNotifyUser "This reschedule notice could not be processed correctly since it has a lower " & _
  7101.                "sequence than the parent document."
  7102.                continue = False
  7103.                ErrorStatus = 1
  7104.                Exit Sub
  7105.           End If
  7106.      End If
  7107. End Sub
  7108. '++LotusScript Development Environment:2:2:Queryclose:1:8
  7109. Sub Queryclose
  7110.      Call note.RemoveItem("SaveOptions")
  7111.      
  7112.      Select Case note.tmpAction(0)
  7113.      Case "Accept","PencilIn"
  7114.           Call UpdateOriginalNote
  7115.           Call AcceptInvitation
  7116.           note.MailOptions = "1"
  7117.           note.From = note.tmpFrom
  7118.           Call RemoveFields
  7119.           
  7120.      Case "Decline"
  7121.           Call UpdateOriginalNote
  7122.           Call DeclineInvitation
  7123.           note.MailOptions = "1"
  7124.           note.From = note.tmpFrom
  7125.           Call RemoveFields
  7126.           
  7127.      Case "AddCalendar"
  7128. 'in this case, we treat this as an accept, but we do not return anything back to the Chair
  7129.           Context = GetContext
  7130.           Select Case Context
  7131.           Case 1,3
  7132.                Call wUpdateOriginalInvitation(parentnote)
  7133.           Case 2,4
  7134.                Call xUpdateOriginalInvitation(note)
  7135.           End Select
  7136.           Call note.RemoveItem("MailOptions")
  7137.           Call note.RemoveItem( "SendTo" )
  7138.           Call note.RemoveItem( "CopyTo" )
  7139.      End Select
  7140.      
  7141.      If (ErrorStatus > 0) Then 
  7142.           ErrorStatus = 0
  7143.           Exit Sub
  7144.      End If
  7145. End Sub
  7146. '++LotusScript Development Environment:2:2:wwGetCalendarProfile:1:8
  7147. Sub wwGetCalendarProfile
  7148.      On Error Goto ErrorRoutine
  7149.      Set profile = db.GetProfileDocument("CalendarProfile")
  7150.      If profile.Owner(0) = "" Then Goto ErrorRoutine
  7151.      Owner = profile.Owner(0)
  7152.      Exit Sub
  7153.      
  7154. ErrorRoutine:
  7155.      wNotifyUser Error & " (GetCalendarProfile)"
  7156.      Exit Sub
  7157. End Sub
  7158. '++LotusScript Development Environment:2:2:AcceptInvitation:1:8
  7159. Sub AcceptInvitation
  7160.  *This routine is called whenever the user accepts a meeting invitation
  7161.  *A notice document is sent to the chair informing them of our intent to attend
  7162.  *The main invitation document is updated to reflect our acceptance     
  7163. %END REM
  7164.      
  7165.      On Error Goto ErrorRoutine
  7166.      On Error 4005 Resume Next 'handle a delegee 
  7167.      
  7168. 'create the notice document
  7169.      If (note.tmpAction(0) = "PencilIn") Then
  7170.           Call ConvertToNotice("Penciled In -",ORS_MSGTYPE_ACCEPT,83,2)
  7171.      Else
  7172.           Call ConvertToNotice("Accepted -",ORS_MSGTYPE_ACCEPT,83,2)
  7173.      End If
  7174.      
  7175.      On Error Goto ErrorRoutine
  7176.      
  7177. 'add the comment if necessary
  7178.      If (note.Comments(0) <> "") Then 
  7179.           note.IncludeComment = "1"
  7180.           notice.IncludeComment = "1"
  7181.      End If
  7182.      
  7183.      Dim sendto (1) As String
  7184.      If (note.HasItem("FromDomain")) Then
  7185.           sendto(0) = note.Chair(0) & " @ " & note.FromDomain(0)
  7186.      Else
  7187.           FromDomain = Evaluate("@Domain")
  7188.           sendto(0) = note.Chair(0) & " @ " & FromDomain(0)
  7189.      End If          
  7190.      Set notesItem = note.ReplaceItemValue( "SendTo", sendto )
  7191.      Call note.RemoveItem( "CopyTo" )
  7192.      
  7193. 'we use the profile document in case this is being processed by the agent     
  7194.      InviteeUserName = Evaluate("@Name([Abbreviate];owner)", profile)
  7195.      ChairName = Evaluate("@Name([cn];chair)", note)
  7196.      note.InviteeName = InviteeUserName
  7197.      
  7198. 'now we need to update the original invitation document
  7199.      Context = GetContextSub(notice)
  7200.      Select Case Context
  7201.      Case 1,3
  7202. '1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
  7203.           Call wUpdateOriginalInvitation(parentnote)
  7204.      Case 2,4
  7205. '2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
  7206.           Call xUpdateOriginalInvitation(notice)
  7207.      End Select
  7208.      wNotifyUser "A notice has been sent informing " & ChairName(0) & " that you will be attending. A meeting document has been added to your Calendar."
  7209.      
  7210.      Exit Sub
  7211.      
  7212. ErrorRoutine:
  7213.      wNotifyUser Error & " (AcceptInvitation)"
  7214.      Exit Sub
  7215. End Sub
  7216. '++LotusScript Development Environment:2:2:DeclineInvitation:1:8
  7217. Sub DeclineInvitation
  7218.  *This routine is called whenever the user declines an invitation or
  7219.   changes their mind after accepting an invitation
  7220.  *A notice document is sent to the chair informing them of our decline
  7221.  *The main invitation document is updated to reflect our decline    
  7222. %END REM
  7223.      Dim MessageText As String
  7224.      
  7225.      On Error Goto ErrorRoutine
  7226.      On Error 4005 Resume Next 'handle a delegee 
  7227.      
  7228.      Call ConvertToNotice("Declined -", ORS_MSGTYPE_REJECT, 84, 2)
  7229.      
  7230. 'add the comment if necessary
  7231.      If (note.Comments(0) <> "") Then note.IncludeComment = "1"
  7232.      
  7233.      Dim sendto (1) As String
  7234.      If (note.HasItem("FromDomain")) Then     
  7235.           sendto(0) = note.Chair(0) & " @ " & note.FromDomain(0)
  7236.      Else
  7237.           FromDomain = Evaluate("@Domain")
  7238.           sendto(0) = note.Chair(0) & " @ " & FromDomain(0)
  7239.      End If   
  7240.      Set notesItem = note.ReplaceItemValue( "SendTo", sendto )
  7241.      Call note.RemoveItem( "CopyTo" )
  7242.      
  7243.      InviteeUserName = Evaluate("@Name([Abbreviate];tmpOwner)",note)
  7244.      ChairName = Evaluate("@Name([cn];chair)",note)
  7245.      note.InviteeName = InviteeUserName
  7246.      
  7247. 'now we need to update the original invitation document
  7248.      Context = GetContextSub(notice)
  7249.      Select Case Context
  7250.      Case 1,3
  7251. '1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
  7252.           If (parentnote.Form(0) = "Appointment") Then
  7253.                MessageText  = "The calendar entry has been removed from your calendar."
  7254.           Else
  7255.                MessageText = "A meeting document has not been added to your calendar."
  7256.           End If
  7257.           Call wUpdateOriginalInvitation(parentnote)
  7258.      Case 2,4
  7259. '2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
  7260.           If (note.Form(0) = "Appointment") Then
  7261.                MessageText  = "The calendar entry has been removed from your calendar."
  7262.           Else
  7263.                MessageText = "A meeting document has not been added to your calendar."
  7264.           End If
  7265.           Call xUpdateOriginalInvitation(notice)
  7266.      End Select
  7267.      
  7268.      wNotifyUser "A notice has been sent informing " & ChairName(0) & _
  7269.      " that you will not be attending. " & MessageText
  7270.      
  7271.      Exit Sub
  7272.      
  7273. ErrorRoutine:
  7274.      wNotifyUser Error & " (DeclineInvitation)"
  7275.      Exit Sub
  7276. End Sub
  7277. '++LotusScript Development Environment:2:2:ConvertToNotice:1:8
  7278. Sub ConvertToNotice(Subject As String, NoticeType As String, ViewIcon As Integer, Mode As Integer)
  7279.  *Parameters
  7280.     Subject -> value of subject item
  7281.     NoticeType -> type of notice being sent
  7282.     ViewIcon -> icon to display in view
  7283.     Mode -> 1 = chair is sending, 2 = invitee is sending
  7284. %END REM
  7285.      
  7286.      Dim ChairItem As NotesItem
  7287.      Dim dummydoc As NotesDocument
  7288.      On Error Goto ErrorRoutine
  7289.      
  7290. 'determine the context of the current note
  7291.      Context = GetContextSub(notice)
  7292.      Select Case Context
  7293.      Case 1,3
  7294. '1 = non-repeat notice, 3 = repeat notice -> make the notice doc a response to the parentnote
  7295.           If(note.HasItem("ApptUNID")) Then
  7296.                If(note.ApptUNID(0) <> parentnote.UniversalID) Then
  7297.                     Set dummydoc = New NotesDocument(db)
  7298.                     dummydoc.UniversalID = note.ApptUNID(0)
  7299.                     Call note.MakeResponse(dummydoc)
  7300.                Else
  7301.                     Call note.MakeResponse(parentnote)
  7302.                     note.ApptUNID = parentnote.UniversalID
  7303.                End If
  7304.           Else
  7305.                Call note.MakeResponse(parentnote)    
  7306.                note.ApptUNID = parentnote.UniversalID
  7307.           End If
  7308.      Case 2,4
  7309. '2 = repeat instance, 4 = non-repeat instance -> make the notice doc a response to the current note
  7310.           If(note.HasItem("ApptUNID")) Then
  7311.                If(note.ApptUNID(0) <> notice.UniversalID) Then
  7312.                     Set dummydoc = New NotesDocument(db)
  7313.                     dummydoc.UniversalID = note.ApptUNID(0)
  7314.                     Call note.MakeResponse(dummydoc)
  7315.                Else
  7316.                     Call note.MakeResponse(notice)
  7317.                     note.ApptUNID = notice.UniversalID
  7318.                End If
  7319.           Else
  7320.                Call note.MakeResponse(notice)
  7321.                note.ApptUNID = notice.UniversalID
  7322.           End If
  7323.      End Select
  7324.      
  7325. '     Call note.save(True, True, True)
  7326.      Call note.ReplaceItemValue("$RefOptions","1")
  7327.      
  7328.      note.Form = "Notice"
  7329.      note.Principal = Owner
  7330.      note.From = notice.From
  7331.      note.NoticeType = NoticeType
  7332.      
  7333. 'add the required attendees -> we need to know what context the current document is in
  7334. 'this is because non-repeat notices, repeat notices, and non-repeat appointments have this information
  7335. 'repeat instances need to get this info from their parent
  7336.      Select Case Context
  7337.      Case 1,3,4
  7338. '1 = non-repeat notice,3 = repeat notice,4 = non-repeat instance -> get the values from the current note
  7339.           'note.RequiredAttendees = note.RequiredAttendees
  7340.           'note.OptionalAttendees = note.OptionalAttendees
  7341.      Case 2
  7342. 'the repeat instance document does not have this information -> get it from the parent
  7343.           note.RequiredAttendees = parentnote.RequiredAttendees
  7344.           note.OptionalAttendees = parentnote.OptionalAttendees
  7345.      End Select
  7346.      
  7347.      Call note.ReplaceItemValue("_ViewIcon",ViewIcon)
  7348.      'If (note.HasItem("$PublicAccess")) Then Call notice.ReplaceItemValue("$PublicAccess","1")
  7349.      If note.HasItem("tmpRescheduleWhich") Then 
  7350.           If (NoticeType = ORS_MSGTYPE_STATUSUPDATE) Then
  7351.                note.RescheduleWhich = "0" 'just this one
  7352.           Else
  7353.                note.RescheduleWhich = note.tmpRescheduleWhich
  7354.           End If
  7355.      End If
  7356.      
  7357. 'add computed items
  7358.      If (mode = 1) Then
  7359. 'we are the chair sending this out
  7360.           note.Topic = note.Subject
  7361.           Set startitem = note.GetFirstItem("StartDateTime")
  7362.           If (note.Room(0) <> "") Then               
  7363.                note.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
  7364.           Else
  7365.                note.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
  7366.           End If
  7367.           note.Chair = Owner
  7368. 'we do not add the send to for chairs; this is upto the calling function
  7369.      Else
  7370. 'we are the invitee sending this out
  7371.           note.Subject = Subject & " " & note.Topic(0)
  7372.      End If
  7373.      Exit Sub
  7374.      
  7375. ErrorRoutine:
  7376.      wNotifyUser Error & " (ConvertToNotice)"
  7377.      Exit Sub
  7378. End Sub
  7379. '++LotusScript Development Environment:2:1:wGetParentDocument:1:8
  7380. Function wGetParentDocument() As Integer
  7381.      On Error Resume Next
  7382.      wGetParentDocument = False
  7383.      
  7384.      Set parentnote = db.GetDocumentByUNID(notice.ParentDocumentUNID)
  7385.      If (parentnote Is Nothing) Then
  7386. 'if this is a non-repeating note, see if we should re-create the document
  7387.           If Not(note.hasitem("OrgRepeat")) Then
  7388.                wNotifyUser "The appointment document had been deleted from your calendar, so it has been re-created."
  7389.                Call ResurrectParentDoc        
  7390.                wGetParentDocument =True
  7391.                Call notice.MakeResponse( parentnote )
  7392.           Else
  7393.                wNotifyUser "Unfortunately, you are attempting to process a repeating notice, which is not supported for Web Mail users."
  7394.           End If
  7395.      Else
  7396. 'we found the parent          
  7397.           wGetParentDocument = True
  7398.      End If
  7399. End Function
  7400. '++LotusScript Development Environment:2:2:UpdateOriginalNote:1:8
  7401. Sub UpdateOriginalNote
  7402.      Call notice.RemoveItem("MailOptions")
  7403.      Call notice.RemoveItem("SaveOptions")
  7404.      Call notice.RemoveItem( "SendTo" )
  7405.      Call notice.RemoveItem( "CopyTo" )
  7406. End Sub
  7407. '++LotusScript Development Environment:2:2:RemoveFields:1:8
  7408. Sub RemoveFields
  7409.      Call note.RemoveItem("PostedDate")
  7410.      Call note.RemoveItem("appType")
  7411.      Call note.RemoveItem("ReminderTime")
  7412.      Call note.RemoveItem("Duration")
  7413.      Call note.RemoveItem("$ExpandGroups")
  7414.      Call note.RemoveItem("TimeRange")
  7415.      Call note.RemoveItem("$NoPurge")
  7416.      Call note.RemoveItem("OrgDontDoubleBook")
  7417.      Call note.RemoveItem("DocAuthors")
  7418.      Call note.RemoveItem("WebPrevCalEntryType")
  7419.      Call note.RemoveItem("OriginalStartDate")
  7420.      Call note.RemoveItem("OriginalEndDate")
  7421.      Call note.RemoveItem("OriginalRoom")
  7422.      Call note.RemoveItem("TimeRangeText")
  7423.      Call note.RemoveItem("BookFreeTime")
  7424.      Call note.RemoveItem("OrgConfidential")
  7425.      Call note.RemoveItem("RouteServers")
  7426.      Call note.RemoveItem("RouteTimes")
  7427.      Call note.RemoveItem("DeliveredDate")
  7428.      Call note.RemoveItem("NewDate")
  7429.      Call note.RemoveItem("NewTimeRange")
  7430.      Call note.RemoveItem("Categories")
  7431.      Call note.RemoveItem("$Revisions")
  7432.      
  7433. '     Call note.RemoveItem("Broadcast")     
  7434. '     Call note.RemoveItem("INVITEENAME")
  7435. '     Call note.RemoveItem("REQUIREDATTENDEES")
  7436. '     Call note.RemoveItem("$PublicAccess")
  7437.      
  7438.      Call note.RemoveItem("Reason")
  7439.      Call note.RemoveItem("NewRoom")
  7440.      Call note.RemoveItem("StatusUpdate")
  7441.      Call note.RemoveItem("Boby")
  7442.      Call note.RemoveItem("OrgState")
  7443.      
  7444. '     note.MailSaveOptions = "1"
  7445. '     note.DefaultMailSaveOptions = "1"
  7446. End Sub
  7447. '++LotusScript Development Environment:2:2:wUpdateOriginalInvitation:1:8
  7448. Sub wUpdateOriginalInvitation (orgnote As NotesDocument)
  7449.      Call xUpdateOriginalInvitation (orgnote)
  7450.      Call orgnote.Save(True,True,True)
  7451.      Call MarkTempFields(orgnote)
  7452. End Sub
  7453. '++LotusScript Development Environment:2:2:xUpdateOriginalInvitation:1:8
  7454. Sub xUpdateOriginalInvitation (orgnote As NotesDocument)
  7455.  *This routine is called by several other routines to update a particular note (orgnote)
  7456.   whenever the user takes a specific action
  7457.  *Orgnote is the document object to be updated
  7458. %END REM
  7459.      
  7460.      On Error Goto ErrorRoutine
  7461.      
  7462.      If (orgnote Is Nothing) Then Exit Sub
  7463.      
  7464. 'the following are some changes we make regardless of the action being performed
  7465.      orgnote.StartDateTime = note.StartDateTime
  7466.      orgnote.EndDateTime = note.EndDateTime
  7467.      orgnote.Room = note.Room
  7468.      orgnote.StartDate = note.StartDate
  7469.      
  7470.      If IsWebClient Then 
  7471.           tmpFrom = notice.From
  7472.      Else
  7473.           tmpFrom = session.Username
  7474.           Call MarkTempFields(orgnote)
  7475.      End If
  7476.      
  7477.      Select Case note.tmpAction(0)
  7478.      Case "Accept","AddCalendar","PencilIn"
  7479. 'we are acceptring an invitation -> mark the document as an appointment
  7480.           orgnote.Form = "Appointment"
  7481.           Set trdr = session.CreateDateRange
  7482.           Set startdt = New NotesDateTime(note.StartDateTime(0))
  7483.           Set enddt = New NotesDateTime(note.EndDateTime(0))
  7484.           Set trdr.StartDateTime = startdt
  7485.           Set trdr.EndDateTime = enddt
  7486.           Set orgnote.TimeRange = trdr
  7487.           orgnote.CalendarDateTime = note.StartDateTime
  7488.           orgnote.StartDate = note.StartDate
  7489.           If (note.tmpAction(0) = "PencilIn") Then
  7490.                Call orgnote.ReplaceItemValue("$BusyPriority","2")
  7491.                orgnote.BookFreeTime = "1"
  7492.           Else            
  7493.                Call orgnote.ReplaceItemValue("$BusyPriority","1")
  7494.           End If
  7495.           orgnote.OrgTable = ORS_ITEM_CALENDAR
  7496.           orgnote.NoticeType = ORS_MSGTYPE_ACCEPT  
  7497.           Call orgnote.ReplaceItemValue("_ViewIcon",158)
  7498.           If Not(orgnote.HasItem("RepeatDates") And orgnote.HasItem("OrgRepeat")) Then Call orgnote.ReplaceItemValue("$BusyName",Owner)
  7499.           orgnote.Subject = note.Topic
  7500. 'check to see if we should automatically set an alarm
  7501.           If (profile.EnableAlarms(0) = "1") And (profile.AutoSetAlarms(0) = "1") And (profile.SetAlarmAppointment(0) = "1") Then
  7502.                Call orgnote.ReplaceItemValue("$Alarm",1)
  7503.                Call orgnote.ReplaceItemValue("$AlarmDescription",note.Topic)
  7504.                Call orgnote.ReplaceItemValue("$AlarmOffset", -1 * profile.AppointmentLead(0))
  7505.                If Not(orgnote.HasItem("RepeatIds")) Then Call orgnote.PutInFolder("$Alarms")
  7506.           Else
  7507.                Call orgnote.RemoveItem("$Alarm")
  7508.                Call orgnote.RemoveItem("$AlarmDescription")
  7509.                Call orgnote.RemoveItem("$AlarmOffset")               
  7510.           End If
  7511. 'if the autoprocessing agent is running, then we need to remove some fields
  7512.           If (IsAgentProcessing Or "AddCalendar" = note.tmpAction(0)) Then
  7513.                Call orgnote.RemoveItem("MailOptions")
  7514.                Call orgnote.RemoveItem("SendTo")
  7515.           End If
  7516. 'if the profile says we shouldn't double book, then update the OrgDontDoubleBook item
  7517.           If (profile.CheckMeeting(0) = "1") Then orgnote.OrgDontDoubleBook = "1"
  7518. 'if the profile says hide new entries from public viewing, then remove the $PublicAccess bit
  7519.           If (profile.CalEntryHide(0) = "1") Then Call orgnote.RemoveItem("$PublicAccess")
  7520.           Call orgnote.ReplaceItemValue("$NoPurge",orgnote.EndDateTime(0))
  7521. 'update the original invitation only if this is a response document
  7522.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  7523.           Call orgnote.RemoveItem( "CopyTo" )
  7524.           If ("AddCalendar" = note.tmpAction(0)) Then 
  7525.                Call orgnote.RemoveItem( "SendTo" )
  7526.           Else
  7527.                Call orgnote.Save(True,True,True)
  7528.           End If
  7529.      Case "Decline"
  7530.           orgnote.Form = "Notice"
  7531.           orgnote.Subject = "Appointment Declined - " & note.Topic(0)          
  7532.           Call orgnote.ReplaceItemValue("_ViewIcon",84)
  7533.           orgnote.NoticeType = ORS_MSGTYPE_REJECT
  7534.           orgnote.From = tmpFrom
  7535.           orgnote.Principal = Owner
  7536.           orgnote.OrgTable = ""
  7537. 'the invitee might have accepted, so remove the calendar and update busy items
  7538.           Call orgnote.RemoveItem("CalendarDateTime")
  7539.           Call orgnote.ReplaceItemValue("$BusyPriority","2")
  7540. 'update the original invitation only if this is a response document
  7541.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  7542.           Call orgnote.RemoveItem( "CopyTo" )
  7543.           Call orgnote.Save(True,True,True)        
  7544.      Case "Delegate"
  7545.           orgnote.Form = "Notice"
  7546.           orgnote.Subject = "Appointment Delegated - " & note.Topic(0)
  7547.           Call orgnote.ReplaceItemValue("_ViewIcon",84)
  7548.           orgnote.NoticeType = ORS_MSGTYPE_DELEGATING
  7549.           orgnote.From = tmpFrom
  7550.           orgnote.Principal = Owner
  7551.           orgnote.OrgTable = ""          
  7552.           Call orgnote.RemoveItem("OrgState")
  7553. 'the invitee might have accepted, so remove the calendar and update busy items
  7554.           Call orgnote.RemoveItem("CalendarDateTime")
  7555.           Call orgnote.ReplaceItemValue("$BusyPriority","2")
  7556. 'update the original invitation only if this is a response document
  7557.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  7558.           Call orgnote.Save(True,True,True)       
  7559.      Case "CounterPropose"
  7560.           orgnote.NoticeType = ORS_MSGTYPE_COUNTER
  7561.           orgnote.Subject = "Appointment Change Proposal - " & note.Topic(0)
  7562.           orgnote.From = tmpFrom
  7563.           orgnote.Principal = Owner
  7564.           orgnote.ProposalSent = True
  7565.           Call orgnote.ReplaceItemValue("_ViewIcon",39)
  7566. 'update the original invitation only if this is a response document
  7567.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  7568.           Call orgnote.Save(True,True,True)
  7569.      Case "AcceptCounterProposal"
  7570.           orgnote.StartDate = note.NewDate          
  7571.           Set trdr = session.CreateDateRange
  7572.           trdr.Text = uidoc.FieldGetText("NewTimeRange")
  7573.           
  7574.           Set startdt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.StartDateTime.TimeOnly)
  7575.           Set enddt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.EndDateTime.TimeOnly)
  7576.           
  7577.           Set orgnote.StartDateTime = startdt
  7578.           Set orgnote.EndDateTime = enddt
  7579.           Set orgnote.TimeRange = trdr
  7580.           If (note.NewRoom(0) <> "") Then orgnote.Room = note.NewRoom          
  7581.           orgnote.CalendarDateTime = orgnote.StartDateTime
  7582.           orgnote.SequenceNum = orgnote.SequenceNum(0) + 1
  7583.           Call orgnote.ReplaceItemValue("$NoPurge",orgnote.EndDateTime(0))
  7584.           Call orgnote.Save(True,True,True)
  7585.      End Select
  7586.      Exit Sub
  7587.      
  7588. ErrorRoutine:
  7589.      wNotifyUser Error & " (xUpdateOriginalInvitation)"
  7590.      Exit Sub
  7591. End Sub
  7592. T    T    T    T    
  7593. )d    [<
  7594. )d    [<
  7595. }h    #1
  7596. )d    ]T    #
  7597. $}h    #1
  7598. }L%#K
  7599. owner
  7600.     0S0E
  7601. chair
  7602.     0S0E
  7603. tmpOwner
  7604.     0S0E
  7605. chair
  7606.     0S0E
  7607. O=Lotus Notes
  7608. O=Lotus Notes
  7609. PURSAFO
  7610. |.:#U
  7611. O=Lotus Notes
  7612. CN=Lotus Notes Template Development/O=Lotus Notes
  7613. PURSAFO
  7614. Fde!f^^
  7615. ]ybXT$)
  7616. $TITLE
  7617. $AssistType
  7618. $AssistLastRun
  7619. $AssistDocCount
  7620. $AssistFlags
  7621. $AssistTrigger
  7622. $AssistInfo
  7623. $AssistQuery
  7624. $AssistAction
  7625. $AssistAction_Ex
  7626. 240EF0A853564D840009D6BA233719491EA45AEDDCEA2E8B54BB76CCC29BC123
  7627. (web wAddress)wAddressCDn
  7628. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
  7629. (Delivery Report)Delivery Report
  7630. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  7631. (Return Receipt)Return Receipt
  7632. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
  7633. (ReturnNonReceipt)ReturnNonReceipt
  7634. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  7635. (Trace Report)Trace ReportCD
  7636. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
  7637. _Special\BookmarkBookmark
  7638. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  7639. Discussion Threads|Threads1
  7640. $39$13
  7641. CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
  7642. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($All)1
  7643. $104$68
  7644. $68Yd
  7645. CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes@
  7646. ##########################################################
  7647. ($Calendar)|Calendar11'
  7648. $134$126$143
  7649. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
  7650. ##########################################################
  7651. "Small Fonts
  7652. New Calendar Entry
  7653. Subject
  7654. '++LotusScript Development Environment:2:5:(Options):0:74
  7655. '++LotusScript Development Environment:2:5:(Forward):0:1
  7656. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7657.  Appointment'++LotusScript Development Environment:2:5:(Options):0:66
  7658. '++LotusScript Development Environment:2:5:(Forward):0:1
  7659. Declare Sub Postopen(Source As Notesuidocument)
  7660. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  7661. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  7662. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7663. Declare Sub Postrecalc(Source As Notesuidocument)
  7664. Declare Sub Postmodechange(Source As Notesuidocument)
  7665. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  7666. Declare Sub Initialize
  7667. Declare Sub Terminate
  7668. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7669. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7670. Private Sub BindEvents(Byval Objectname_ As String)
  7671.      Static Source As NOTESUIDOCUMENT
  7672.      Set Source = Bind(Objectname_)
  7673.      On Event Postopen From Source Call Postopen
  7674.      On Event Querysave From Source Call Querysave
  7675.      On Event Queryopen From Source Call Queryopen
  7676.      On Event Queryclose From Source Call Queryclose
  7677.      On Event Postrecalc From Source Call Postrecalc
  7678.      On Event Postmodechange From Source Call Postmodechange
  7679.      On Event Querymodechange From Source Call Querymodechange
  7680. End Sub
  7681. '++LotusScript Development Environment:2:2:Postopen:1:12
  7682. Sub Postopen(Source As Notesuidocument)
  7683.      
  7684. End Sub
  7685. '++LotusScript Development Environment:2:2:Querysave:1:12
  7686. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  7687.      
  7688. End Sub
  7689. '++LotusScript Development Environment:2:2:Queryopen:1:12
  7690. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  7691.      
  7692. End Sub
  7693. '++LotusScript Development Environment:2:2:Queryclose:1:12
  7694. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7695.      
  7696. End Sub
  7697. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  7698. Sub Postrecalc(Source As Notesuidocument)
  7699.      
  7700. End Sub
  7701. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  7702. Sub Postmodechange(Source As Notesuidocument)
  7703.      
  7704. End Sub
  7705. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  7706. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  7707.      
  7708. End Sub
  7709. '++LotusScript Development Environment:2:2:Initialize:1:10
  7710. Sub Initialize
  7711.      
  7712. End Sub
  7713. '++LotusScript Development Environment:2:2:Terminate:1:10
  7714. Sub Terminate
  7715.      
  7716. End Sub
  7717.     Hidden Fields: 
  7718. tmpFrom
  7719. Appointment
  7720. $ExpandGroups
  7721. _ViewIcon
  7722. wAppointmentOpen
  7723. $$QueryOpenAgent
  7724. wAppointmentSave
  7725. $$QuerySaveAgentdomino server agent hook
  7726. MailOptions
  7727. SaveOptions
  7728. Query_StringCGI variable for LS
  7729. Path_Info
  7730. appType
  7731. NewDoc
  7732. OldSubject
  7733. tmpConfirmMsg
  7734. IsFindTime
  7735.     1S2S3S4S5S6S
  7736. [<b>  <b>]
  7737. tmpConfirmMsg
  7738. IsFindTime
  7739.     1S2S
  7740. [<b>  <b>]
  7741. tmpDispAppType
  7742. dispAppType
  7743. CalendarProfile
  7744. Owner
  7745.     6S9S10S
  7746.     The owner of this mail file is "
  7747. CalendarProfile
  7748. Owner
  7749. tmpCurrentOwner
  7750.     You are logged in as "
  7751. tmpCurrentUser
  7752. $HideMailHeader
  7753. IsFindTime
  7754. Principal
  7755. Principal
  7756. Principal
  7757. Principal
  7758. Principal
  7759.     4S5S6S7S8S9S13S14S15S16S17S18S23S24S28S30S31S35S37S38S41S42S44S45S49S51S52S56S
  7760.     Sent by:
  7761. FromDomain
  7762. FromDomain
  7763. FromDomain
  7764. FromDomain
  7765.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  7766. FromName
  7767.     0RR1S2S6S
  7768. FromStops
  7769.     0R1S2S6S
  7770. FromName
  7771. FromStops
  7772. FromStops
  7773. FromStops
  7774.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  7775.     0S0E
  7776.     Submit
  7777. IsFindTime
  7778. HasFoundTime
  7779.     1S2S3S4S5S6S
  7780.     Entry Types: 
  7781. tmpOpenForm
  7782. OpenForm
  7783.     1S2S
  7784. tmpEditDocument
  7785. EditDocument
  7786.     0R1S2S
  7787. tmpOpenFormLen
  7788. tmpOpenForm
  7789.     0R1S2S
  7790. tmpEditDocumentLen
  7791. tmpEditDocument
  7792.     0R1S2S
  7793. tmpQuery_StringLen
  7794. Query_String
  7795.     0R1S2S
  7796. tmpViewArguments1
  7797. Query_String
  7798. tmpOpenFormLen_
  7799. tmpOpenForm
  7800. Query_String
  7801. tmpQuery_StringLen
  7802. tmpOpenFormLen#
  7803. Query_String
  7804. tmpEditDocumentLen_
  7805. tmpEditDocument
  7806. Query_String
  7807. tmpQuery_StringLen
  7808. tmpEditDocumentLen#
  7809.     0RR1S2S3S4S8S10S11S13RS4E17S18S19S22RS4E23S24S28S30S31S33RS8E37S38S39S42RS8E44S
  7810. tmpEntryType
  7811. &EntryType=
  7812.     0RR1S2S
  7813. tmpEntryTypeLen
  7814. tmpEntryType
  7815.     0R1S2S
  7816. tmpViewArguments
  7817. tmpViewArguments1
  7818. tmpEntryTypeLen
  7819. tmpEntryType
  7820. tmpViewArguments1
  7821. tmpViewArguments1
  7822. tmpEntryTypeLen
  7823.     0R1S2S3S4S8S10S11S13RS4E17S21S22S23S24S27RS4E
  7824.     0RR1S2S8S12S14S
  7825. First arg could be a doc or view ref
  7826.     0RR1S
  7827. Path_Info
  7828. Path_Info
  7829.     0R1S2S6S10S11S15S16S
  7830. arg1a
  7831.     0R1S2S3S10S14S18S21S
  7832. arg1b
  7833. arg1a
  7834. arg1a
  7835. arg1a
  7836.     0R1S2S3S10S14S18S21S
  7837. If second arg exists, it's the doc ref
  7838.     0RR1S
  7839. arg1b
  7840.     0R1S2S3S10S14S18S22S23S27S28S31S
  7841. arg2a
  7842.     0R1S2S3S10S14S18S21S
  7843. openForm
  7844. OpenForm
  7845.     0RR1S2S
  7846. editDoc
  7847. EditDocument
  7848.     0R1S2S
  7849. Determine the command that was issued
  7850.     0RR1S
  7851. isOpenForm
  7852. Query_String
  7853. openForm
  7854. openForma
  7855.     0R1S2S8S14S15S
  7856. isEditDoc
  7857. Query_String
  7858. editDoc
  7859. editDoc
  7860.     0R1S2E2S5E8S14S15S
  7861. newCmd
  7862. isOpenForm
  7863. openForm
  7864. isEditDoc
  7865. editDoc
  7866.     0R1S2S3S6S8S12S14S
  7867. Build the base URL
  7868.     0RR1S
  7869. path"
  7870. arg1b
  7871. isEditDoc
  7872. arg2a
  7873. newCmd"
  7874. tmpEntryType"
  7875.     0R1S2S3S4S5S6S7S8S9S10S14S15S16S18S20S21S22S23S24S25S
  7876. ahead
  7877. <a href="
  7878.     0RR1S2S3S4S
  7879. amiddle
  7880. tmpViewArguments
  7881.     0R1S2S3S4S
  7882. atail
  7883. </a>   
  7884.     0R2S
  7885. typea
  7886. ahead
  7887. amiddle
  7888. Appointment
  7889. atail
  7890.     0RR1S2S3S4S5S6S7S8S9S10S
  7891. typeb
  7892. ahead
  7893. amiddle
  7894. Invitation"
  7895. atail
  7896.     0R1S2S3S4S5S6S7S8S9S10S
  7897. typec
  7898. ahead
  7899. amiddle
  7900. Event
  7901. atail
  7902.     0R1S2S3S4S5S6S7S8S9S10S
  7903. typed
  7904. ahead
  7905. amiddle
  7906. Reminder"
  7907. atail
  7908.     0R1S2S3S4S5S6S7S8S9S10S
  7909. typee
  7910. ahead
  7911. amiddle
  7912. Anniversary
  7913.     0R1S2S3S4S5S6S7S8S
  7914. typea
  7915. typeb
  7916. typec
  7917. typed
  7918. typee
  7919. </a><BR>]
  7920.     0RR1S2S3S4S5S6S7S8S9S10S11S12S
  7921. EntryTypes
  7922.     Brief description:
  7923. Subject[<size=55>]
  7924.     Date:
  7925. StartDateTime
  7926.     4S6S
  7927. newDateTime
  7928.     0RR1S2S
  7929. minutes
  7930. newDateTime
  7931.     0R1S2S
  7932. seconds
  7933. newDateTime
  7934.     0R1S2S3S4S
  7935. adjust time to the next 15 minute interval
  7936.     0RR1S
  7937. StartDateTime
  7938. minutes
  7939. newDateTime
  7940. minutes
  7941. seconds
  7942. minutes
  7943. newDateTime
  7944. minutes
  7945. seconds
  7946. minutes
  7947. newDateTime
  7948. minutes
  7949. seconds
  7950. minutes
  7951. newDateTime
  7952. minutes
  7953. seconds
  7954. newDateTime
  7955. seconds
  7956.     0R1S2S3S6S7S9S13S15S17S19S21S22S23S25S28S29S30S32S36S38S40S42S44S45S46S48S51S52S53S55S59S61S63S65S67S68S69S71S74S75S76S78S82S84S86S88S90S91S92S94S97S101S103S105S107S109S111S
  7957. MinuteDur
  7958. CalendarProfile
  7959. DefaultDuration
  7960.     0RR1S2S6S
  7961. MinuteDuration
  7962. MinuteDur
  7963. MinuteDur
  7964. MinuteDur
  7965.     0R1S2S4S6S7S9S10S12S13S16S17S18S
  7966. EndDateTime
  7967. StartDateTime
  7968. MinuteDuration
  7969.     0RR1S2S3S7S9S11S13S15S17S
  7970. StartDateTime
  7971.     0RRN
  7972. StartDate
  7973. StartDate
  7974.     3S4S5S6S8S
  7975. StartDate[<size=11>]
  7976. AppointmentType
  7977. IsFindTime
  7978.     1S2S3S4S5S6S7S8S9S10S
  7979.     Time:
  7980. StartDateTime
  7981.     0S0E
  7982. StartTime[<size=11>]
  7983. AppointmentType
  7984. IsFindTime
  7985.     2S3S4S5S6S7S9S10S11S12S
  7986.     Duration ( hr : min ):
  7987. tmpProfileValue
  7988. CalendarProfile
  7989. DefaultDuration
  7990.     1S2S6S
  7991. tmpProfileValue
  7992. tmpProfileValue
  7993. tmpProfileValue
  7994.     0R3S8S10S11S13RS4E15RS4E18S19S21S22S24S25S
  7995. AppointmentType
  7996. Duration
  7997. You must enter a duration of at least 1 day.{
  7998.     3S4S5S6S7S8S10SDurationMin/
  7999. 0:15|150:30|300:45|451:00|601:15|751:30|901:45|1052:00|1202:15|1352:30|1502:45|1653:00|1803:15|1953:30|2103:45|2254:00|2404:15|2554:30|2704:45|2855:00|3005:15|4155:30|4305:45|4456:00|4606:15|4756:30|4906:45|5057:00|5207:15|5357:30|5507:45|5658:00|5808:15|5958:30|6108:45|6259:00|6409:15|6559:30|6709:45|68510:00|70010:15|71510:30|73010:45|74511:00|76011:15|77511:30|79011:45|805
  8000. AppointmentType
  8001.     1S2S
  8002.     Duration (in days):
  8003. AppointmentType
  8004. Duration
  8005. You must enter a duration of at least 1 day.{
  8006.     3S4S5S6S7S8S10SDuration[<size=11>]
  8007. BookFreeTime
  8008. AppointmentType
  8009. IsFindTime
  8010.     1S2S3S4S5S6S7S8S9S10S
  8011.     Penciled In
  8012. CalendarProfile
  8013. CalEntryHide
  8014.     0S0E
  8015. OrgConfidential
  8016. Not for public viewing|1
  8017.     Detailed description:
  8018. Body[<ROWS="6" COLS="61"  WRAP=VIRTUAL>]
  8019. AppointmentType
  8020. tmpOwner
  8021. Chair
  8022. IsFindTime
  8023.     1S2S3S2E4S5S6S7S8S9S10S
  8024. [<b>  </b>]
  8025. Attendees
  8026. CalendarProfile
  8027. wEnableNABs
  8028.     1S6S8S9S11S16S
  8029. CalendarProfile
  8030. wNAB1
  8031.     0RR1S2S6S
  8032. CalendarProfile
  8033. wNAB2
  8034.     0R1S2S6S
  8035. CalendarProfile
  8036. wNAB3
  8037.     0R1S2S6S
  8038. CalendarProfile
  8039. wNAB4
  8040.     0R1S2S6S
  8041. NABurl1
  8042. CalendarProfile
  8043. wNABurl1
  8044.     0R1S2S6S
  8045. NABurl2
  8046. CalendarProfile
  8047. wNABurl2
  8048.     0R1S2S6S
  8049. NABurl3
  8050. CalendarProfile
  8051. wNABurl3
  8052.     0R1S2S6S
  8053. NABurl4
  8054. CalendarProfile
  8055. wNABurl4
  8056.     0R1S2S6S
  8057. anchorHead
  8058. <a href="
  8059.     0RR1S2S
  8060. anchorMid
  8061. "><font size=2><b>
  8062.     0R1S2S
  8063. anchorTail
  8064. </b></font></a>
  8065.     0R1S2S
  8066. spaces
  8067.     
  8068.     0R1S2S
  8069. Link1
  8070. anchorHead
  8071. NABurl1
  8072. anchorMid
  8073. NAB1"
  8074. anchorTail"
  8075. spaces"
  8076.     0RR1S2S3S4S5S6S7S8S9S10S11S12S
  8077. Link2
  8078. anchorHead
  8079. NABurl2
  8080. anchorMid
  8081. NAB2"
  8082. anchorTail"
  8083. spaces"
  8084.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  8085. Link3
  8086. anchorHead
  8087. NABurl3
  8088. anchorMid
  8089. NAB3"
  8090. anchorTail"
  8091. spaces"
  8092.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  8093. Link4
  8094. anchorHead
  8095. NABurl4
  8096. anchorMid
  8097. NAB4"
  8098. anchorTail"
  8099.     0R1S2S3S4S5S6S7S8S9S10S
  8100. Link1
  8101. Link2
  8102. Link3
  8103. Link4
  8104.     0RR1S2S3S4S5S6S7S8S9S10S
  8105. tmpCustomAddressLinks
  8106.     Send invitations to:
  8107. SendTo[<size=55>]
  8108.     Optional invitees:
  8109. CopyTo[<size=55>]
  8110. AppointmentType
  8111. tmpOwner
  8112. Chair
  8113. Broadcast
  8114. IsFindTime
  8115.     1S2S3S2E4S5S6S7S8S9S10S11S12S13S14S15S16S
  8116. Broadcast
  8117. I don't want responses from the Invitees|1
  8118. AppointmentType
  8119. tmpOwner
  8120. Chair
  8121. Broadcast
  8122.     1S2S3S2E4S5S6S7S8S9S10S11S12S
  8123. AppointmentType
  8124. tmpOwner
  8125. Chair
  8126. Broadcast
  8127. IsFindTime
  8128.     1S2S3S2E4S5S6S7S8S9S10S11S12S13S14S15S16S
  8129.     Invitees are not required to respond.
  8130. AppointmentType
  8131. RequiredAttendees
  8132. IsFindTime
  8133.     1S2S3S4S5S6S7S8S9S10S
  8134.     Invitations have been sent to:
  8135. RequiredAttendees
  8136. tmpSendTo
  8137. AppointmentType
  8138. OptionalAttendees
  8139. IsFindTime
  8140.     1S2S3S4S8S9S10S11S12S13S
  8141.     Optional invitees:
  8142. OptionalAttendees
  8143. tmpCopyTo
  8144. AppointmentType
  8145. IsFindTime
  8146.     1S2S3S4S5S6S7S8S9S10S
  8147.     Meeting location:
  8148. tmpRoom
  8149. AppointmentType
  8150. chair
  8151. IsFindTime
  8152.     1S2S3S4S5S6S7S8S9S10S11S12S
  8153.     Chairperson:
  8154. Chair
  8155.     2S4S
  8156. tmpChairperson
  8157. AppointmentType
  8158. tmpOwner
  8159. Chair
  8160. Broadcast
  8161. IsFindTime
  8162.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  8163. /wInviteeResponses?OpenForm&UNID=
  8164.     3S4S10S14S16S18S19S20S21S28S30S
  8165. StartDateTime
  8166. y with Text
  8167. EG Image
  8168. *.JPG
  8169. PCX Image
  8170. Display Invitee Responses
  8171. IncludeComment
  8172. IsFindTime
  8173.     1S2S3S4S5S6S
  8174.     Comments:
  8175. Comments
  8176. tmpComments
  8177.     [<BR>]File Attachments:
  8178. [<b>  </b>]Mail Options[<BR>]
  8179. Importance
  8180. High|1Normal|2Low|3
  8181.     Importance
  8182. DeliveryReport
  8183. On failure|BConfirm delivery|CTrace entire path|TNone|N
  8184.     DeliveryReport
  8185. DeliveryPriority
  8186. High|HNormal|NLow|L
  8187.     Delivery Priority
  8188.     0S0E
  8189.     Submit
  8190. IsFindTime
  8191.     1S2S
  8192. [<b>  </b>]Free Time Finder
  8193. [</b>
  8194. tmpGridField
  8195. tmpGridField
  8196. <BR>]
  8197. Recommended Times:
  8198. [</b>
  8199. tmpMessages
  8200. tmpMessages
  8201. tmpMeetingTimesCtrl
  8202. tmpMeetingTimesCtrl
  8203. </b>]
  8204. [<BR><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  8205. IsFindTime
  8206.     1S2S3S
  8207. parse the suggestion selection (which may have not been made)
  8208.     0RR1S
  8209. tmpList
  8210. tmpMeetingTimesCtrl
  8211.     0R1S2S8S
  8212. tmpIsEmptySelection
  8213. tmpList
  8214.     0R1S2S8S
  8215. tmpDateSugg
  8216. tmpDate
  8217. tmpDateRef
  8218. tmpList
  8219. tmpDate
  8220.     0R1S2S5S6S8S14S18S
  8221. tmpTimeSugg
  8222. tmpTime
  8223. tmpTimeRef
  8224. tmpList
  8225. tmpTime
  8226.     0R1S2S5S6S8S16S19S24S
  8227. tmpDurationSugg
  8228. tmpDuration
  8229. tmpDurationRef
  8230. tmpList
  8231. tmpDuration
  8232.     0R1S2S5S6S8S14S19S
  8233. update the real values
  8234.     0RR1S
  8235. StartDate
  8236. tmpIsEmptySelection
  8237. tmpMeetingTimesCtrl
  8238. tmpDate
  8239. tmpDateSugg
  8240.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  8241. StartTime
  8242. tmpIsEmptySelection
  8243. tmpMeetingTimesCtrl
  8244. tmpTime
  8245. tmpTimeSugg
  8246.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  8247. DurationMin
  8248. tmpIsEmptySelection
  8249. tmpMeetingTimesCtrl
  8250. tmpDuration
  8251. tmpDurationSugg
  8252.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  8253. Subject
  8254. tmpSubject^
  8255.     0RR1S2S3S
  8256. tmpBody
  8257.     0R1S2S3S
  8258. SendTo
  8259. tmpSendTo2
  8260.     0R1S2S3S9S
  8261. CopyTo
  8262. tmpCopyTo2
  8263.     0R1S2S3S9S
  8264. tmpSendTo
  8265. tmpSendTo3
  8266.     0R1S2S3S9S
  8267. tmpCopyTo
  8268. tmpCopyTo3
  8269.     0R1S2S3S9S
  8270. tmpRoom
  8271. tmpRoom2^
  8272.     0R1S2S3S
  8273. BookFreeTime
  8274. tmpBookFreeTime
  8275.     0RR1S2S3S
  8276. OrgConfidential
  8277. tmpOrgConfidential
  8278.     0R1S2S3S
  8279. Broadcast
  8280. tmpBroadcast
  8281.     0R1S2S3S
  8282. Importance
  8283. tmpImportance
  8284.     0R1S2S3S
  8285. DeliveryPriority
  8286. tmpDeliveryPriority
  8287.     0R1S2S3S
  8288. DeliveryReport
  8289. tmpDeliveryReport
  8290.     0R1S2S3S
  8291. dispAppType
  8292. tmpDispAppType
  8293.     0RR1S2S3S
  8294. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn010.gif">
  8295. </TD><TD WIDTH="99%">Return with time and date selections</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  8296. IsFindTime
  8297.     1S2S3S
  8298. StartDate
  8299. tmpDateOrg
  8300.     0RR1S2S3S
  8301. StartTime
  8302. tmpTimeOrg
  8303.     0R1S2S3S
  8304. DurationMin
  8305. tmpDurationOrg
  8306.     0R1S2S3S
  8307. Subject
  8308. tmpSubject^
  8309.     0RR1S2S3S
  8310. tmpBody
  8311.     0R1S2S3S
  8312. SendTo
  8313. tmpSendTo2^
  8314.     0R1S2S3S
  8315. CopyTo
  8316. tmpCopyTo2^
  8317.     0R1S2S3S
  8318. tmpSendTo
  8319. tmpSendTo3^
  8320.     0R1S2S3S
  8321. tmpCopyTo
  8322. tmpCopyTo3^
  8323.     0R1S2S3S
  8324. tmpRoom
  8325. tmpRoom2^
  8326.     0R1S2S3S
  8327. BookFreeTime
  8328. tmpBookFreeTime
  8329.     0RR1S2S3S
  8330. OrgConfidential
  8331. tmpOrgConfidential
  8332.     0R1S2S3S
  8333. Broadcast
  8334. tmpBroadcast
  8335.     0R1S2S3S
  8336. Importance
  8337. tmpImportance
  8338.     0R1S2S3S
  8339. DeliveryPriority
  8340. tmpDeliveryPriority
  8341.     0R1S2S3S
  8342. DeliveryReport
  8343. tmpDeliveryReport
  8344.     0R1S2S3S
  8345. dispAppType
  8346. tmpDispAppType
  8347.     0RR1S2S3S
  8348. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn011.gif">
  8349. </TD><TD WIDTH="99%">Cancel time and date selections</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  8350. tmpChair
  8351. Chair
  8352.     1S2S6S
  8353. prep attendee list
  8354.     0RR1S
  8355. tmpST2
  8356. tmpSendTo2
  8357.     0R1S2S8S
  8358. tmpCT2
  8359. tmpCopyTo2
  8360.     0R1S2S8S
  8361. tmpSendToArg
  8362. tmpSendTo3^
  8363. tmpST2
  8364. tmpST2
  8365. tmpSendTo3
  8366.     0R1S2S5S6S11S13S14S15S21S24S
  8367. tmpCopyToArg
  8368. tmpCopyTo3^
  8369. tmpCT2
  8370. tmpCT2
  8371. tmpCopyTo3
  8372.     0R1S2S5S6S11S13S14S15S21S24S
  8373. parse the suggestion selection (which may not be made)
  8374.     0RR1S
  8375. tmpList
  8376. tmpMeetingTimesCtrl
  8377.     0R1S2S6S
  8378. tmpIsEmptySelection
  8379. tmpList
  8380.     0R1S2S8S
  8381. tmpDateSugg
  8382. tmpDate
  8383. tmpDateRef
  8384. tmpIsEmptySelection
  8385. tmpList
  8386. tmpDate
  8387.     0R1S2S5S6S7S8S9S10S12S18S22S
  8388. tmpTimeSugg
  8389. tmpTime
  8390. tmpTimeRef
  8391. tmpIsEmptySelection
  8392. tmpList
  8393. tmpTime
  8394.     0R1S2S5S6S7S8S9S10S12S20S23S28S
  8395. tmpDurationSugg
  8396. tmpDuration
  8397. tmpDurationRef
  8398. tmpIsEmptySelection
  8399. tmpList
  8400. tmpDuration
  8401.     0R1S2S5S6S7S8S9S10S12S18S23S
  8402. perform the freetime search
  8403.     0RR1S
  8404. tmpIsEmptySelection
  8405. tmpMeetingTimesCtrl
  8406. Domino
  8407. RefreshFreeTimeGrid
  8408. tmpGridField
  8409. tmpMeetingTimesCtrl
  8410. tmpMessages
  8411. tmpDate
  8412. tmpTime
  8413. tmpDuration
  8414. tmpGridFormat
  8415. tmpChair
  8416. tmpSendToArg
  8417. tmpCopyToArg
  8418. Domino
  8419. RefreshFreeTimeGrid
  8420. tmpGridField
  8421. tmpMeetingTimesCtrl
  8422. tmpMessages
  8423. tmpDateSugg
  8424. tmpTimeSugg
  8425. tmpDurationSugg
  8426. tmpGridFormat
  8427. tmpChair
  8428. tmpSendToArg
  8429. tmpCopyToArg
  8430.     0R1S3S4S5S6S7S8S10R14S16S18S20S22S24S26S28S30S32S34S36S39R43S45S47S49S51S53S55S57S59S61S63S65S67S
  8431. update the manual input fields
  8432.     0RR1S
  8433. tmpDate
  8434. tmpIsEmptySelection
  8435. tmpMeetingTimesCtrl
  8436. tmpDate
  8437. tmpDateSugg
  8438.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  8439. tmpTime
  8440. tmpIsEmptySelection
  8441. tmpMeetingTimesCtrl
  8442. tmpTime
  8443. tmpTimeSugg
  8444.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  8445. tmpDuration
  8446. tmpIsEmptySelection
  8447. tmpMeetingTimesCtrl
  8448. tmpDuration
  8449. tmpDurationSugg
  8450.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  8451. remember what the new reference values so we can compare them with the suggestion selections
  8452.     0RR1S
  8453. tmpDateRef
  8454. tmpDate
  8455.     0R1S2S3S
  8456. tmpTimeRef
  8457. tmpTime
  8458.     0R1S2S3S
  8459. tmpDurationRef
  8460. tmpDuration
  8461.     0R1S2S3S
  8462. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn022.gif">
  8463. </TD><TD WIDTH="99%">Refresh the display with the current selections</TD></TR></TABLE><TABLE WIDTH="100%"><TR><TD>
  8464. tmpGridFormat
  8465. by day|0by person|1
  8466. </TD><TD></TABLE><TABLE WIDTH="100%"><TR VALIGN=bottom><TD WIDTH="1%">
  8467. tmpDate[<size=11>]
  8468. </TD><TD WIDTH="99%">Date</TD></TR><TR VALIGN=bottom><TD WIDTH="1%">
  8469. tmpTime[<size=11>]
  8470. </TD><TD WIDTH="99%">Time</TD></TR><TR VALIGN=bottom><TD WIDTH="1%">
  8471. tmpDuration/
  8472. 0:15|150:30|300:45|451:00|601:15|751:30|901:45|1052:00|1202:15|1352:30|1502:45|1653:00|1803:15|1953:30|2103:45|2254:00|2404:15|2554:30|2704:45|2855:00|3005:15|4155:30|4305:45|4456:00|4606:15|4756:30|4906:45|5057:00|5207:15|5357:30|5507:45|5658:00|5808:15|5958:30|6108:45|6259:00|6409:15|6559:30|6709:45|68510:00|70010:15|71510:30|73010:45|74511:00|76011:15|77511:30|79011:45|805
  8473. </TD><TD WIDTH="99%">Duration ( hours : minutes )</TD></TR></TABLE>]
  8474. [<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD><IMG SRC="/icons/ftb4.gif"><IMG SRC="/icons/ftbv.gif"></TD><TD> = Busy   </TD><TD><IMG SRC="/icons/ftf4.gif"><IMG SRC="/icons/ftbv.gif"></TD><TD> = Free   </TD><TD><IMG SRC="/icons/ftf4a.gif"><IMG SRC="/icons/ftbv.gif"></TD><TD> = OK   </TD><TD><IMG SRC="/icons/ftb4a.gif"><IMG SRC="/icons/ftbv.gif"></TD><TD> = Conflict   </TD><TD><IMG SRC="/icons/ftn4.gif"><IMG SRC="/icons/ftbv.gif"></TD><TD> = No Information</TD></TR><TR><TD><IMG SRC="/icons/ftbh.gif"></TD><TD></TD><TD><IMG SRC="/icons/ftbh.gif"></TD><TD></TD><TD><IMG SRC="/icons/ftbh.gif"></TD><TD></TD><TD><IMG SRC="/icons/ftbh.gif"></TD><TD></TD><TD><IMG SRC="/icons/ftbh.gif"></TD></TR></TABLE><BR>]
  8475. [<b>  </b>]Tips
  8476.     Click on 
  8477.     the "
  8478.     Return with ...
  8479.     button to save the time, date and duration selections to the Calendar Entry currently being editted.
  8480.     Click on the "
  8481.     Cancel time ...
  8482.     " button to return to the Calendar Entry without the time, date and duration selections.
  8483.     Click on the "
  8484.     Refresh ...
  8485.     " button to update the free time grid and suggestion list according to the current time, date and duration selections.
  8486.     Select "
  8487.     by day
  8488.     " to display an entire week in the free time grid.
  8489.     Select "
  8490.     by person
  8491.     " to display each attendee's free time schedule in the grid.
  8492.     When there is a schedule conflict the "
  8493.     Recommended Times
  8494.     " list provides meeting times 
  8495.     suggestions
  8496.     . Select a suggested meeting time, or modify the meeting's date, time and duration from the other controls. A recommended meeting time suggestion and changes to the date, time, or duration controls can be combined.
  8497.     Hidden w/ HTML tag in help description field:
  8498. IsFindTime[<TYPE=hidden >]
  8499. HasFoundTime[<TYPE=hidden >]
  8500. IsAddressing[<TYPE=hidden >]
  8501. IsNewDoc[<TYPE=hidden >]
  8502. Chair[<TYPE=hidden >]
  8503. tmpOwner[<TYPE=hidden >]
  8504. AppointmentType[<TYPE=hidden >]
  8505. tmpDispAppType[<TYPE=hidden >]
  8506. tmpSubject[<TYPE=hidden >]
  8507. tmpBody[<TYPE=hidden >]
  8508. tmpSendTo2[<TYPE=hidden >]
  8509. tmpCopyTo2[<TYPE=hidden >]
  8510. tmpSendTo3[<TYPE=hidden >]
  8511. tmpCopyTo3[<TYPE=hidden >]
  8512. tmpRoom2[<TYPE=hidden >]
  8513. tmpDateOrg[<TYPE=hidden >]
  8514. tmpTimeOrg[<TYPE=hidden >]
  8515. tmpDurationOrg[<TYPE=hidden >]
  8516. tmpBookFreeTime[<TYPE=hidden >]
  8517. tmpOrgConfidential[<TYPE=hidden >]
  8518. tmpBroadcast[<TYPE=hidden >]
  8519. tmpImportance[<TYPE=hidden >]
  8520. tmpDeliveryPriority[<TYPE=hidden >]
  8521. tmpDeliveryReport[<TYPE=hidden >]
  8522. tmpDateRef[<TYPE=hidden >]
  8523. tmpTimeRef[<TYPE=hidden >]
  8524. tmpDurationRef[<TYPE=hidden >]
  8525. _Forward
  8526. _Move to Folder...
  8527. _Edit Document
  8528. Attendees
  8529. Principal
  8530. RepeatIds
  8531.     4S5S6S7R11S12S13S14S15S17S18S
  8532. Categori_zep
  8533. Send Docu_ment
  8534. _Remove from Folder...
  8535. Meeting
  8536.     1S2S8S12S14S
  8537. path"
  8538. /Appointment?OpenForm
  8539.     0R3S4S5S6S
  8540. Addressi
  8541. OldSubject
  8542. Subject
  8543. Subject
  8544. IN TRASH - TEMPORARY DOCUMENT
  8545. Subject
  8546.     0R1S2S3S
  8547. IsAddressing
  8548.     0R1S
  8549.     0R1S10S14S16S23S
  8550.     0RR4S
  8551. path"
  8552. /wAddressInvite?OpenForm&
  8553.     0R3S4S5S6S7S8S15S17S18Sr
  8554. AppointmentType
  8555. IsFindTime
  8556. tmpOwner
  8557. Chair
  8558.     1S2S3S4S5S6S7S8S9S10S
  8559. Find Free Time(
  8560. tmpChair
  8561. Chair
  8562.     1S2S6S
  8563. Domino
  8564. RefreshFreeTimeGrid
  8565. tmpGridField
  8566. tmpMeetingTimesCtrl
  8567. tmpMessages
  8568. StartDate
  8569. StartTime
  8570. DurationMin
  8571. tmpChair
  8572. SendTo
  8573. tmpSendTo
  8574. CopyTo
  8575. tmpCopyTo
  8576.     0R4S6S8S10S12S14S16S18S20S22S24S28S
  8577. IsFindTime
  8578.     0RR1S2S3S
  8579. HasFoundTime
  8580.     0R1S2S3S
  8581. tmpGridFormat
  8582.     0R1S2S3S
  8583. tmpDate
  8584. StartDate
  8585.     0RR1S2S3S
  8586. tmpTime
  8587. StartTime
  8588.     0R1S2S3S
  8589. tmpDuration
  8590. DurationMin
  8591.     0R1S2S3S
  8592. tmpDateRef
  8593. StartDate
  8594.     0RR1S2S3S
  8595. tmpTimeRef
  8596. StartTime
  8597.     0R1S2S3S
  8598. tmpDurationRef
  8599. DurationMin
  8600.     0R1S2S3S
  8601. tmpSendTo2
  8602. SendTo^
  8603.     0RR1S2S3S
  8604. tmpCopyTo2
  8605. CopyTo^
  8606.     0R1S2S3S
  8607. tmpSendTo3
  8608. tmpSendTo
  8609.     0R1S2S3S
  8610. tmpCopyTo3
  8611. tmpCopyTo
  8612.     0R1S2S3S
  8613. tmpDateOrg
  8614. StartDate
  8615.     0RR1S2S3S
  8616. tmpTimeOrg
  8617. StartTime
  8618.     0R1S2S3S
  8619. tmpDurationOrg
  8620. DurationMin
  8621.     0R1S2S3S
  8622. tmpSubject
  8623. Subject
  8624.     0R1S2S3S
  8625. tmpBody
  8626.     0R1S2S3S
  8627. tmpRoom2
  8628. tmpRoom
  8629.     0R1S2S3S
  8630. tmpBookFreeTime
  8631. BookFreeTime
  8632.     0R1S2S3S
  8633. tmpOrgConfidential
  8634. OrgConfidential
  8635.     0R1S2S3S
  8636. tmpBroadcast
  8637. Broadcast
  8638.     0R1S2S3S
  8639. tmpImportance
  8640. Importance
  8641.     0R1S2S3S
  8642. tmpDeliveryPriority
  8643. DeliveryPriority
  8644.     0R1S2S3S
  8645. tmpDeliveryReport
  8646. DeliveryReport
  8647.     0R1S2S3S
  8648.     0RRr
  8649. AppointmentType
  8650. IsFindTime
  8651. tmpOwner
  8652. Chair
  8653.     1S2S3S4S5S6S7S8S9S10S
  8654. Edit 
  8655.     0S0E
  8656. tmpOwner
  8657. Chair
  8658.     1S2S
  8659. Trashe
  8660.     1S2S8S12S14S
  8661. /wCommand?OpenAgent&ToTrash=
  8662. &From="
  8663.     0R1S2S3S4S11S13S15S16S
  8664. Path_Info
  8665. Path_Info
  8666.     0R1S2S6S10S11S15S
  8667. view1
  8668.     0R1S2S3S10S14S18S21S
  8669. view2
  8670. view1
  8671. view1
  8672. view1
  8673.     0R1S2S3S10S14S18S21S
  8674. path"
  8675. view2
  8676.     0RR3S4S5S6S7S8S
  8677.     1S2S8S12S14S
  8678. /wFolders?OpenForm&UNID=
  8679. &View="
  8680.     0R1S2S3S4S11S13S15S16S
  8681. Path_Info
  8682. Path_Info
  8683.     0R1S2S6S10S11S15S
  8684. view1
  8685.     0R1S2S3S10S14S18S21S
  8686. view2
  8687. view1
  8688. view1
  8689. view1
  8690.     0R1S2S3S10S14S18S21S
  8691. path"
  8692. view2
  8693.     0RR3S4S5S6S7S8S
  8694. In Box*
  8695. ($InBox)
  8696. IsFindTime
  8697.     1S2S
  8698. Calendar
  8699.     1S2S8S12S14S
  8700. &Grid=
  8701. CalendarProfile
  8702. wCalGridType
  8703.     0R1S2S3S4S8S
  8704. path"
  8705. /($Calendar)?OpenView
  8706. args"
  8707.     0R3S4S5S6S7S8S
  8708. IsFindTime
  8709.     1S2S
  8710. Meetings.
  8711. ($Meetings)
  8712. IsFindTime
  8713.     1S2S
  8714. All Views
  8715. IsFindTime
  8716.     1S2S
  8717. O=Lotus Notes
  8718. O=Lotus Notes
  8719. PURSAFO
  8720. |.:#U
  8721. O=Lotus Notes
  8722. CN=Lotus Notes Template Development/O=Lotus Notes
  8723. PURSAFO
  8724. Fde!f^^
  8725. CompletedOn
  8726. EndDate
  8727. CalendarDate_Time___Start
  8728. CalendarDate_Time___End
  8729. CalendarDates
  8730. CalendarDate
  8731. RepeatDates
  8732. CalendarDateTime
  8733. EndDateTime
  8734. $NoPurge
  8735. EndTime
  8736. StartEndTime
  8737. StartDateTime
  8738. $FormPublicAccess
  8739. TimeRange
  8740. WebCalEntryTypeChanged
  8741. ReminderTime
  8742. $TITLE
  8743. $INFO
  8744. $WINDOWTITLE
  8745. $Script
  8746. $$Script_O
  8747. $$ScriptName
  8748. $$FormScript
  8749. $$$FormScript_O
  8750. _ViewIcon
  8751. Duration
  8752. $BODY
  8753. $ACTIONS
  8754. $PublicAccess
  8755. Times New Roman
  8756. VersionOpt|
  8757.     6S7S9S14S
  8758. $VersionOpt
  8759.     0R1S2S3S
  8760. SavedOnce
  8761.     0R1S2S3S
  8762. PostedDate(
  8763.     0R1S2S3S
  8764. DeliveredDate
  8765.     0R1S2S3S
  8766. $AutoEditMode
  8767.     0R1S2S3S
  8768. MailSaveOptions
  8769.     0R1S2S3S
  8770. VersionOpt
  8771.     0R4S
  8772. New Memo
  8773. Subject
  8774. Subject
  8775. Subject
  8776.     4S6S12S13S14S15S17S21S23S25S26S28S
  8777. '++LotusScript Development Environment:2:5:(Options):0:74
  8778. Option Public
  8779. '++LotusScript Development Environment:2:5:(Forward):0:1
  8780. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8781.  Memo'++LotusScript Development Environment:2:5:(Options):0:66
  8782. '++LotusScript Development Environment:2:5:(Forward):0:1
  8783. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  8784. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8785. Declare Sub Postmodechange(Source As Notesuidocument)
  8786. Declare Sub Postopen(Source As Notesuidocument)
  8787. Declare Sub Initialize
  8788. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8789. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8790. Private Sub BindEvents(Byval Objectname_ As String)
  8791.      Static Source As NOTESUIDOCUMENT
  8792.      Set Source = Bind(Objectname_)
  8793.      On Event Querysave From Source Call Querysave
  8794.      On Event Queryclose From Source Call Queryclose
  8795.      On Event Postmodechange From Source Call Postmodechange
  8796.      On Event Postopen From Source Call Postopen
  8797. End Sub
  8798. '++LotusScript Development Environment:2:2:Querysave:1:12
  8799. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  8800.      
  8801. End Sub
  8802. '++LotusScript Development Environment:2:2:Queryclose:1:12
  8803. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8804.      
  8805. End Sub
  8806. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  8807. Sub Postmodechange(Source As Notesuidocument)
  8808.      
  8809. End Sub
  8810. '++LotusScript Development Environment:2:2:Postopen:1:12
  8811. Sub Postopen(Source As Notesuidocument)
  8812.      
  8813. End Sub
  8814. '++LotusScript Development Environment:2:2:Initialize:1:10
  8815. Sub Initialize
  8816.      
  8817. End Sub
  8818.     Hidden: 
  8819. tmpFrom
  8820. CalendarProfile
  8821. Owner
  8822. Principal
  8823.     0S0E
  8824.     0S0E
  8825. Encrypt
  8826. MailSaveOptions
  8827.     1S2S3S
  8828. MailSaveOptions
  8829. DefaultMailSaveOptions
  8830. $KeepPrivate
  8831. $KeepPrivate
  8832. $KeepPrivate
  8833.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  8834. wMemo
  8835. $$QuerySaveAgent
  8836. Path_Info
  8837. Path_Info
  8838. MailOptions
  8839. SaveOptions
  8840. OldSubject
  8841. [<b> 
  8842.  
  8843. </b>]
  8844. [<b>  </b>]-
  8845. [<b>  </b>]From:
  8846. [<b> </b>]
  8847. Principal
  8848. Principal
  8849.     1S2S5S6S8S10S
  8850.     0R1S2S8S
  8851.     0R1S2S5S6S8S14S18S
  8852.     0R1S2S5S6S8S14S18S
  8853. SentBy
  8854.     0R1S2S5S6S8S10S11S12S13S14S
  8855. SentBy
  8856. FromDomain
  8857. FromDomain
  8858. FromDomain
  8859. FromDomain
  8860.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  8861. FromName
  8862. Principal
  8863. Principal
  8864.     0RR1S2S9S11S15S
  8865. FromStops
  8866.     0R1S2S6S
  8867. FromName
  8868. FromStops
  8869. FromStops
  8870. FromStops
  8871.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_NoLogo
  8872. PostedDateh
  8873. PostedDate
  8874.     7S9S
  8875. tmpDisplayDate_NoLogoTime/date memo was created or mailed.
  8876. CalendarProfile
  8877. Owner
  8878.     6S9S10S
  8879.     The owner of this mail file is "
  8880. tmpCurOwner
  8881. CalendarProfile
  8882. Owner
  8883.     1S2S6S
  8884. tmpCurOwner
  8885. (set this value from the Preferences page)
  8886. tmpCurOwner
  8887.     0R1S3S4S6S8S
  8888. tmpCurrentOwner
  8889.     You are logged in as "
  8890. tmpCurrentUser
  8891. $HideMailHeader
  8892. Principal
  8893. Principal
  8894. Principal
  8895. Principal
  8896. Principal
  8897. tmpAddressIsOn
  8898.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S55S56S57S58S
  8899.     Sent by:
  8900. FromDomain
  8901. FromDomain
  8902. FromDomain
  8903. FromDomain
  8904.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  8905. FromName
  8906.     0RR1S2S6S
  8907. FromStops
  8908.     0R1S2S6S
  8909. FromName
  8910. FromStops
  8911. FromStops
  8912. FromStops
  8913.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  8914.     0S0E
  8915.     Submit
  8916.     [<b>     </b>]
  8917. CalendarProfile
  8918. wDefaultMailOpt
  8919. tmpSendOptions
  8920. Send Only|1Send and Save|2Save as Draft|3
  8921. ReplyDate
  8922. ReplyTo
  8923. $HideMailHeader
  8924.     2S3S4S5S6S7S9S10S
  8925. Please respond
  8926. ReplyTo
  8927. ReplyTo
  8928. ReplyDate
  8929. ReplyDate
  8930.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  8931. CalendarProfile
  8932. wEnableNABs
  8933. tmpAddressIsOn
  8934.     4S6S7S8S9S10S11S
  8935. CalendarProfile
  8936. wEnableNABs
  8937.     1S6S8S9S11S16S
  8938. CalendarProfile
  8939. wNAB1
  8940.     0RR1S2S6S
  8941. CalendarProfile
  8942. wNAB2
  8943.     0R1S2S6S
  8944. CalendarProfile
  8945. wNAB3
  8946.     0R1S2S6S
  8947. CalendarProfile
  8948. wNAB4
  8949.     0R1S2S6S
  8950. NABurl1
  8951. CalendarProfile
  8952. wNABurl1
  8953.     0R1S2S6S
  8954. NABurl2
  8955. CalendarProfile
  8956. wNABurl2
  8957.     0R1S2S6S
  8958. NABurl3
  8959. CalendarProfile
  8960. wNABurl3
  8961.     0R1S2S6S
  8962. NABurl4
  8963. CalendarProfile
  8964. wNABurl4
  8965.     0R1S2S6S
  8966. anchorHead
  8967. <a href="
  8968.     0RR1S2S
  8969. anchorMid
  8970. "><font size=2><b>
  8971.     0R1S2S
  8972. anchorTail
  8973. </b></font></a>
  8974.     0R1S2S
  8975. spaces
  8976.     
  8977.     0R1S2S
  8978. Link1
  8979. anchorHead
  8980. NABurl1
  8981. anchorMid
  8982. NAB1"
  8983. anchorTail"
  8984. spaces"
  8985.     0RR1S2S3S4S5S6S7S8S9S10S11S12S
  8986. Link2
  8987. anchorHead
  8988. NABurl2
  8989. anchorMid
  8990. NAB2"
  8991. anchorTail"
  8992. spaces"
  8993.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  8994. Link3
  8995. anchorHead
  8996. NABurl3
  8997. anchorMid
  8998. NAB3"
  8999. anchorTail"
  9000. spaces"
  9001.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  9002. Link4
  9003. anchorHead
  9004. NABurl4
  9005. anchorMid
  9006. NAB4"
  9007. anchorTail"
  9008.     0R1S2S3S4S5S6S7S8S9S10S
  9009. Link1
  9010. Link2
  9011. Link3
  9012. Link4
  9013.     0RR1S2S3S4S5S6S7S8S9S10S
  9014. tmpCustomAddressLinks
  9015. $HideMailHeader
  9016.     0S0E
  9017. SendTo[<size=58>]
  9018. CopyTo[<size=58>]
  9019. DeliveredDate
  9020. BlindCopyTo
  9021. (bcc: 
  9022. BlindCopyTo
  9023.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
  9024.     bcc:
  9025. BlindCopyTo[<size=58>]
  9026.     Subject:
  9027. Subject[<size=58>]
  9028. Body[<ROWS="10" COLS="60"  WRAP=VIRTUAL>]
  9029.     [<BR>]File Attachments:
  9030. tmpAddressIsOn
  9031.     1S2S
  9032. [<b>  </b>]Mail Options[<BR>]
  9033. Importance
  9034. High|1Normal|2Low|3
  9035.     Importance
  9036. DeliveryReport
  9037. On failure|BConfirm delivery|CTrace entire path|TNone|N
  9038.     DeliveryReport
  9039. DeliveryPriority
  9040. High|HNormal|NLow|L
  9041.     Delivery Priority
  9042.     0S0E
  9043.     Submit
  9044.     [<BR><BR><BR>]
  9045. [<b>  </b>]Tips
  9046.     Click on the 
  9047.     Address
  9048.      button to search through your address books.
  9049.     The 
  9050.     Trash
  9051.      button will move this document into the Trash folder.
  9052.     Some web browsers do not support adding 
  9053.     file attachments
  9054.      to documents. In such cases, the file attachment control may appear as an edit control. Any text entered in that edit control will not be included in your mail message.
  9055. Hidden w/ HTML tag in help description field:
  9056. Path_Info
  9057. tmpPath_Info[<TYPE=hidden >]
  9058. Edit Document
  9059. Memo&
  9060. Edit 
  9061.     0S0E
  9062. Reply
  9063. Reply
  9064. Address
  9065. OldSubject
  9066. Subject
  9067. Subject
  9068. IN TRASH - TEMPORARY DOCUMENT
  9069. Subject
  9070.     0R1S2S3S
  9071. tmpSendOptions
  9072.     0R1S
  9073.     0R1S10S14S16S23S
  9074.     0R4S
  9075. path"
  9076. /wAddress?OpenForm&
  9077.     0R3S4S5S6S7S8S15S17S18S
  9078. TrashP
  9079.     1S2S8S12S14S
  9080. /wCommand?OpenAgent&ToTrash=
  9081. &From="
  9082.     0R1S2S3S4S11S13S15S16S
  9083. Path_Info
  9084. Path_Info
  9085.     0R1S2S6S10S11S15S
  9086. view1
  9087.     0R1S2S3S10S14S18S21S
  9088. view2
  9089. view1
  9090. view1
  9091. view1
  9092.     0R1S2S3S10S14S18S21S
  9093. path"
  9094. view2
  9095.     0RR3S4S5S6S7S8S.
  9096. tmpAddressIsOn
  9097.     1S2S
  9098.     1S2S8S12S14S
  9099. /wFolders?OpenForm&UNID=
  9100. &View="
  9101.     0R1S2S3S4S11S13S15S16S
  9102. Path_Info
  9103. Path_Info
  9104.     0R1S2S6S10S11S15S
  9105. view1
  9106.     0R1S2S3S10S14S18S21S
  9107. view2
  9108. view1
  9109. view1
  9110. view1
  9111.     0R1S2S3S10S14S18S21S
  9112. path"
  9113. view2
  9114.     0RR3S4S5S6S7S8S
  9115. In Box*
  9116. ($InBox)
  9117. tmpAddressIsOn
  9118.     1S2S
  9119. Calendar
  9120.     1S2S8S12S14S
  9121. path"
  9122. /($Calendar)?OpenView&Grid=
  9123. CalendarProfile
  9124. wCalGridType
  9125.     0R3S4S5S6S7S8S12S.
  9126. tmpAddressIsOn
  9127.     1S2S
  9128. Meetings.
  9129. ($Meetings)
  9130. tmpAddressIsOn
  9131.     1S2S
  9132. To Do
  9133. ($ToDo)
  9134. tmpAddressIsOn
  9135.     1S2S
  9136. All Views
  9137. tmpAddressIsOn
  9138.     1S2S
  9139. _Move To Folder...
  9140. _Forward
  9141. _Remove From Folder...
  9142. Categori_ze
  9143. SSend
  9144. O=Lotus Notes
  9145. O=Lotus Notes
  9146. PURSAFO
  9147. |.:#U
  9148. O=Lotus Notes
  9149. CN=Lotus Notes Template Development/O=Lotus Notes
  9150. PURSAFO
  9151. Fde!f^^
  9152. $$FormPostOpenAction
  9153. $TypeIcon
  9154. ExpireDate
  9155. ReplyDate
  9156. ComposedDate
  9157. $SCRIPTOBJ_25
  9158. $TITLE
  9159. $INFO
  9160. $WINDOWTITLE
  9161. $Script
  9162. $$Script_O
  9163. $$ScriptName
  9164. $$FormScript
  9165. $$$FormScript_O
  9166. $BODY
  9167. $ACTIONS
  9168. VersionOpt|
  9169.     6S7S9S14S
  9170. $VersionOpt
  9171.     0R1S2S3S
  9172. SavedOnce
  9173.     0R1S2S3S
  9174. PostedDate(
  9175.     0R1S2S3S
  9176. DeliveredDate
  9177.     0R1S2S3S
  9178. $AutoEditMode
  9179.     0R1S2S3S
  9180. MailSaveOptions
  9181.     0R1S2S3S
  9182. VersionOpt
  9183.     0R4S
  9184. New Phone Message
  9185. Subject
  9186. Subject
  9187. Subject
  9188.     4S6S12S13S14S15S17S21S23S25S26S28S
  9189. Times New Roman
  9190. '++LotusScript Development Environment:2:5:(Options):0:74
  9191. '++LotusScript Development Environment:2:5:(Forward):0:1
  9192. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9193.  Phone Message'++LotusScript Development Environment:2:5:(Options):0:66
  9194. '++LotusScript Development Environment:2:5:(Forward):0:1
  9195. Declare Sub Postopen(Source As Notesuidocument)
  9196. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9197. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9198. Declare Sub Postmodechange(Source As Notesuidocument)
  9199. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9200. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9201. Private Sub BindEvents(Byval Objectname_ As String)
  9202.      Static Source As NOTESUIDOCUMENT
  9203.      Set Source = Bind(Objectname_)
  9204.      On Event Postopen From Source Call Postopen
  9205.      On Event Querysave From Source Call Querysave
  9206.      On Event Queryclose From Source Call Queryclose
  9207.      On Event Postmodechange From Source Call Postmodechange
  9208. End Sub
  9209. '++LotusScript Development Environment:2:2:Postopen:1:12
  9210. Sub Postopen(Source As Notesuidocument)
  9211.      
  9212. End Sub
  9213. '++LotusScript Development Environment:2:2:Querysave:1:12
  9214. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9215.      
  9216. End Sub
  9217. '++LotusScript Development Environment:2:2:Queryclose:1:12
  9218. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9219.      
  9220. End Sub
  9221. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  9222. Sub Postmodechange(Source As Notesuidocument)
  9223.      
  9224. End Sub
  9225.     Always Hidden: 
  9226. Principal
  9227. Principal
  9228.     3S4S6S8S
  9229. FromPerson memo is from.
  9230. tmpFrom
  9231. CalendarProfile
  9232. Owner
  9233. Principal
  9234.     0S0E
  9235.     0S0E
  9236. Encrypt
  9237.     0S0E
  9238. DefaultMailSaveOptions
  9239. $KeepPrivate
  9240. $KeepPrivate
  9241. $KeepPrivate
  9242.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  9243. Path_Info
  9244. Path_Info
  9245. MailOptions
  9246. SaveOptions
  9247. wMemo
  9248. $$QuerySaveAgent
  9249. OldSubject
  9250. [<b>  </b>]
  9251. Phone Message[<b>  </b>]-[<b>  </b>]From:[<b> </b>]
  9252. Principal
  9253. Principal
  9254. FromDomain
  9255. FromDomain
  9256. FromDomain
  9257. FromDomain
  9258.     7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
  9259. FromName
  9260. Principal
  9261. Principal
  9262.     0RR1S2S9S11S15S
  9263. FromStops
  9264.     0R1S2S6S
  9265. FromName
  9266. FromStops
  9267. FromStops
  9268. FromStops
  9269.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom
  9270. PostedDateh
  9271. PostedDate
  9272.     7S9S
  9273. tmpDisplayDateTime/date memo was created or mailed.
  9274. CalendarProfile
  9275. Owner
  9276.     6S9S10S
  9277.     The owner of this mail file is "
  9278. tmpCurOwner
  9279. CalendarProfile
  9280. Owner
  9281.     1S2S6S
  9282. tmpCurOwner
  9283. (set this value from the Preferences page)
  9284. tmpCurOwner
  9285.     0R1S3S4S6S8S
  9286. tmpCurrentOwner
  9287.     You are logged in as "
  9288. tmpCurrentUser
  9289. $HideMailHeader
  9290. Principal
  9291. Principal
  9292. Principal
  9293. Principal
  9294. Principal
  9295.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  9296.     Sent by:
  9297. FromDomain
  9298. FromDomain
  9299. FromDomain
  9300. FromDomain
  9301.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  9302. FromName
  9303.     0RR1S2S6S
  9304. FromStops
  9305.     0R1S2S6S
  9306. FromName
  9307. FromStops
  9308. FromStops
  9309. FromStops
  9310.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  9311.     0S0E
  9312.     Submit
  9313.     [<b>     </b>]
  9314. CalendarProfile
  9315. wDefaultMailOpt
  9316. tmpSendOptions
  9317. Send Only|1Send and Save|2Save as Draft|3
  9318. ReplyDate
  9319. ReplyTo
  9320.     1S2S3S4S5S6S
  9321. Please respond
  9322. ReplyTo
  9323. ReplyTo
  9324. ReplyDate
  9325. ReplyDate
  9326.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  9327. CalendarProfile
  9328. wEnableNABs
  9329.     4S6S7S
  9330. CalendarProfile
  9331. wEnableNABs
  9332.     1S6S8S9S11S16S
  9333. CalendarProfile
  9334. wNAB1
  9335.     0RR1S2S6S
  9336. CalendarProfile
  9337. wNAB2
  9338.     0R1S2S6S
  9339. CalendarProfile
  9340. wNAB3
  9341.     0R1S2S6S
  9342. CalendarProfile
  9343. wNAB4
  9344.     0R1S2S6S
  9345. NABurl1
  9346. CalendarProfile
  9347. wNABurl1
  9348.     0R1S2S6S
  9349. NABurl2
  9350. CalendarProfile
  9351. wNABurl2
  9352.     0R1S2S6S
  9353. NABurl3
  9354. CalendarProfile
  9355. wNABurl3
  9356.     0R1S2S6S
  9357. NABurl4
  9358. CalendarProfile
  9359. wNABurl4
  9360.     0R1S2S6S
  9361. anchorHead
  9362. <a href="
  9363.     0RR1S2S
  9364. anchorMid
  9365. "><font size=2><b>
  9366.     0R1S2S
  9367. anchorTail
  9368. </b></font></a>
  9369.     0R1S2S
  9370. spaces
  9371.     
  9372.     0R1S2S
  9373. Link1
  9374. anchorHead
  9375. NABurl1
  9376. anchorMid
  9377. NAB1"
  9378. anchorTail"
  9379. spaces"
  9380.     0RR1S2S3S4S5S6S7S8S9S10S11S12S
  9381. Link2
  9382. anchorHead
  9383. NABurl2
  9384. anchorMid
  9385. NAB2"
  9386. anchorTail"
  9387. spaces"
  9388.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  9389. Link3
  9390. anchorHead
  9391. NABurl3
  9392. anchorMid
  9393. NAB3"
  9394. anchorTail"
  9395. spaces"
  9396.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  9397. Link4
  9398. anchorHead
  9399. NABurl4
  9400. anchorMid
  9401. NAB4"
  9402. anchorTail"
  9403.     0R1S2S3S4S5S6S7S8S9S10S
  9404. Link1
  9405. Link2
  9406. Link3
  9407. Link4
  9408.     0RR1S2S3S4S5S6S7S8S9S10S
  9409. tmpCustomAddressLinks
  9410. SendTo}
  9411.     0S0E
  9412. SendTo[<size=58>]
  9413. CopyTo}
  9414.     0S0E
  9415. CopyTo[<size=58>]
  9416. DeliveredDate
  9417. BlindCopyTo
  9418. (bcc: 
  9419. BlindCopyTo
  9420.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
  9421.     bcc:
  9422. BlindCopyTo
  9423.     0S0E
  9424. BlindCopyTo[<size=58>]
  9425. [<b>  </b>]
  9426. While You Were Out
  9427. Contact:
  9428. PhoneCaller[<size=58>]
  9429. CompanyName[<size=58>]
  9430. Phone:
  9431. PhoneNumber[<size=58>]
  9432. FAXNumber[<size=58>]
  9433. PhoneReason    
  9434. Telephoned|TPlease Call|PWill Call Again|WReturned Call|RWas In|IWill Return|LLeft Package|KPlease See Me|MUrgent|N
  9435.     Message:
  9436. Body[<ROWS="5" COLS="60"  WRAP=VIRTUAL>]
  9437. Phone Message from 
  9438. PhoneCaller
  9439.     1S2S
  9440. Subject
  9441.     [<BR>]File Attachments:
  9442.     0S0E
  9443. [<b>  </b>]Mail Options[<BR>]
  9444. Importance
  9445. High|1Normal|2Low|3
  9446.     Importance
  9447. DeliveryReport
  9448. On failure|BConfirm delivery|CTrace entire path|TNone|N
  9449.     DeliveryReport
  9450. DeliveryPriority
  9451. High|HNormal|NLow|L
  9452.     Delivery Priority
  9453.     0S0E
  9454.     Submit
  9455.     [<BR><BR><BR>]
  9456. [<b>  </b>]Tips
  9457.     Click on the 
  9458.     Address
  9459.      button to search through your address books.
  9460.     The 
  9461.     Trash
  9462.      button will move this document into the Trash folder.
  9463.     Some web browsers do not support adding 
  9464.     file attachments
  9465.      to documents. In such cases, the file attachment control may appear as an edit control. Any text entered in that edit control will not be included in your mail message.
  9466.     Hidden w/ HTML tag in help description field:
  9467. Path_Info
  9468. tmpPath_Info[<TYPE=hidden >]
  9469. Edit Document
  9470. Edit 
  9471.     0S0E
  9472. Reply0(
  9473. Reply
  9474. Address
  9475. OldSubject
  9476. Subject
  9477. Subject
  9478. IN TRASH - TEMPORARY DOCUMENT
  9479. Subject
  9480.     0R1S2S3S
  9481. tmpSendOptions
  9482.     0R1S
  9483.     0R1S10S14S16S23S
  9484.     0R4S
  9485. path"
  9486. /wAddress?OpenForm&
  9487.     0R3S4S5S6S7S8S15S17S18S
  9488. Trash
  9489.     1S2S8S12S14S
  9490. /wCommand?OpenAgent&ToTrash=
  9491. &From="
  9492.     0R1S2S3S4S11S13S15S16S
  9493. Path_Info
  9494. Path_Info
  9495.     0R1S2S6S10S11S15S
  9496. view1
  9497.     0R1S2S3S10S14S18S21S
  9498. view2
  9499. view1
  9500. view1
  9501. view1
  9502.     0R1S2S3S10S14S18S21S
  9503. path"
  9504. view2
  9505.     0RR3S4S5S6S7S8S
  9506.     1S2S8S12S14S
  9507. /wFolders?OpenForm&UNID=
  9508. &View="
  9509.     0R1S2S3S4S11S13S15S16S
  9510. Path_Info
  9511. Path_Info
  9512.     0R1S2S6S10S11S15S
  9513. view1
  9514.     0R1S2S3S10S14S18S21S
  9515. view2
  9516. view1
  9517. view1
  9518. view1
  9519.     0R1S2S3S10S14S18S21S
  9520. path"
  9521. view2
  9522.     0RR3S4S5S6S7S8S
  9523. _Move To Folder...    
  9524. _Forward
  9525. _Remove From Folder...
  9526. Categori_ze
  9527. SSend
  9528. In Box*
  9529. ($Inbox)
  9530. Calendar
  9531.     1S2S8S12S14S
  9532. path"
  9533. /($Calendar)?OpenView&Grid=
  9534. CalendarProfile
  9535. wCalGridType
  9536.     0R3S4S5S6S7S8S12S
  9537. Meetings.
  9538. ($Meetings)
  9539. To Do
  9540. ($ToDo)
  9541. All ViewsS"
  9542. O=Lotus Notes
  9543. O=Lotus Notes
  9544. PURSAFO
  9545. |.:#U
  9546. O=Lotus Notes
  9547. CN=Lotus Notes Template Development/O=Lotus Notes
  9548. PURSAFO
  9549. Fde!f^^
  9550. ?k`a<
  9551. $$FormPostOpenAction
  9552. $TypeIcon
  9553. ExpireDate
  9554. ReplyDate
  9555. ComposedDate
  9556. $TITLE
  9557. $INFO
  9558. $WINDOWTITLE
  9559. $Script
  9560. $$Script_O
  9561. $$ScriptName
  9562. $$FormScript
  9563. $$$FormScript_O
  9564. $BODY
  9565. $ACTIONS
  9566. (web Reply)ReplyCDn
  9567. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  9568. (web wGuide)wGuideCDn
  9569. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  9570. (web wPreferences)wPreferencesCDn1
  9571. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
  9572. 240EF0A853564D840009D6BA233719491EA45AEDDCEA2E8B54BB76CCC29BC123
  9573. (web wAddressInvite)wAddressInviteCDn
  9574. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  9575. 240EF0A853564D840009D6BA233719491EA45AEDDCEA2E8B54BB76CCC29BC123
  9576. (web wAddressTask)wAddressTaskCDn
  9577. CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
  9578. ##########################################################
  9579. ##########################################################
  9580. ##########################################################
  9581. Times New Roman
  9582. VersionOpt|
  9583.     6S7S9S14S
  9584. $VersionOpt
  9585.     0R1S2S3S
  9586. SavedOnce
  9587.     0R1S2S3S
  9588. PostedDate(
  9589.     0R1S2S3S
  9590. DeliveredDate
  9591.     0R1S2S3S
  9592. $AutoEditMode
  9593.     0R1S2S3S
  9594. MailSaveOptions
  9595.     0R1S2S3S
  9596. VersionOpt
  9597.     0R4S
  9598. InheritedBody
  9599. New Reply
  9600. Subject
  9601. Subject
  9602. Subject
  9603.     4S6S12S13S14S15S17S21S23S25S26S28S
  9604. '++LotusScript Development Environment:2:5:(Options):0:74
  9605. '++LotusScript Development Environment:2:5:(Forward):0:1
  9606. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9607.  Reply'++LotusScript Development Environment:2:5:(Options):0:66
  9608. '++LotusScript Development Environment:2:5:(Forward):0:1
  9609. Declare Sub Postopen(Source As Notesuidocument)
  9610. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9611. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9612. Declare Sub Postmodechange(Source As Notesuidocument)
  9613. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9614. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9615. Private Sub BindEvents(Byval Objectname_ As String)
  9616.      Static Source As NOTESUIDOCUMENT
  9617.      Set Source = Bind(Objectname_)
  9618.      On Event Postopen From Source Call Postopen
  9619.      On Event Querysave From Source Call Querysave
  9620.      On Event Queryclose From Source Call Queryclose
  9621.      On Event Postmodechange From Source Call Postmodechange
  9622. End Sub
  9623. '++LotusScript Development Environment:2:2:Postopen:1:12
  9624. Sub Postopen(Source As Notesuidocument)
  9625.      
  9626. End Sub
  9627. '++LotusScript Development Environment:2:2:Querysave:1:12
  9628. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9629.      
  9630. End Sub
  9631. '++LotusScript Development Environment:2:2:Queryclose:1:12
  9632. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9633.      
  9634. End Sub
  9635. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  9636. Sub Postmodechange(Source As Notesuidocument)
  9637.      
  9638. End Sub
  9639.     Always hidden: 
  9640. SendTo
  9641. CopyTo
  9642.     1S2S
  9643. InheritedSendTo
  9644. ReplyTo
  9645. InheritedReplyTo
  9646. Principal
  9647. Principal
  9648. Fromh
  9649.     1S2S9S11S16S18S
  9650. FromDomainh
  9651. FromDomain"
  9652.     0R7S8S9S10S11S13SInheritedFrom
  9653. FromDomain
  9654. InheritedFromDomain
  9655. FromPerson memo is from.
  9656. tmpFrom
  9657. CalendarProfile
  9658. Owner
  9659. Principal
  9660.     0S0E
  9661.     0S0E
  9662. Encrypt
  9663.     0S0E
  9664. DefaultMailSaveOptions
  9665. $KeepPrivate
  9666. $KeepPrivate
  9667. $KeepPrivate
  9668.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  9669. wMemo
  9670. $$QuerySaveAgent
  9671. Path_Info
  9672. Path_Info
  9673. MailOptions
  9674. SaveOptions
  9675. OldSubject
  9676. [<b>  </b>]
  9677. Reply
  9678. [<b>  </b>]-[<b>  </b>]From:[<b> </b>]
  9679. Principal
  9680. Principal
  9681.     1S2S5S6S8S10S
  9682.     0R1S2S8S
  9683.     0R1S2S5S6S8S14S18S
  9684.     0R1S2S5S6S8S14S18S
  9685. SentBy
  9686.     0R1S2S5S6S8S10S11S12S13S14S
  9687. SentBy
  9688. FromDomain
  9689. FromDomain
  9690. FromDomain
  9691. FromDomain
  9692.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  9693. FromName
  9694. Principal
  9695. Principal
  9696.     0RR1S2S9S11S15S
  9697. FromStops
  9698.     0R1S2S6S
  9699. FromName
  9700. FromStops
  9701. FromStops
  9702. FromStops
  9703.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_NoLogo
  9704. PostedDateh
  9705. PostedDate
  9706.     7S9S
  9707. tmpDisplayDate_NoLogoTime/date memo was created or mailed.
  9708. CalendarProfile
  9709. Owner
  9710.     6S9S10S
  9711.     The owner of this mail file is "
  9712. tmpCurOwner
  9713. CalendarProfile
  9714. Owner
  9715.     1S2S6S
  9716. tmpCurOwner
  9717. (set this value from the Preferences page)
  9718. tmpCurOwner
  9719.     0R1S3S4S6S8S
  9720. tmpCurrentOwner
  9721.     You are logged in as "
  9722. tmpCurrentUser
  9723. $HideMailHeader
  9724. Principal
  9725. Principal
  9726. Principal
  9727. Principal
  9728. Principal
  9729.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  9730.     Sent by:
  9731. FromDomain
  9732. FromDomain
  9733. FromDomain
  9734. FromDomain
  9735.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  9736. FromName
  9737.     0RR1S2S6S
  9738. FromStops
  9739.     0R1S2S6S
  9740. FromName
  9741. FromStops
  9742. FromStops
  9743. FromStops
  9744.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  9745. tmpBackToTask
  9746.     1S2S
  9747.     0S0E
  9748.     Submit
  9749. tmpBackToTask
  9750.     1S2S
  9751.     0S0E
  9752.     Submit
  9753.     [<b>     </b>]
  9754. CalendarProfile
  9755. wDefaultMailOpt
  9756. tmpSendOptions
  9757. Send Only|1Send and Save|2Save as Draft|3
  9758. ReplyDate
  9759. ReplyTo
  9760. $HideMailHeader
  9761.     2S3S4S5S6S7S9S10S
  9762. Please respond
  9763. ReplyTo
  9764. ReplyTo
  9765. ReplyDate
  9766. ReplyDate
  9767.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  9768. CalendarProfile
  9769. wEnableNABs
  9770.     4S6S7S
  9771. CalendarProfile
  9772. wEnableNABs
  9773.     1S6S8S9S11S16S
  9774. CalendarProfile
  9775. wNAB1
  9776.     0RR1S2S6S
  9777. CalendarProfile
  9778. wNAB2
  9779.     0R1S2S6S
  9780. CalendarProfile
  9781. wNAB3
  9782.     0R1S2S6S
  9783. CalendarProfile
  9784. wNAB4
  9785.     0R1S2S6S
  9786. NABurl1
  9787. CalendarProfile
  9788. wNABurl1
  9789.     0R1S2S6S
  9790. NABurl2
  9791. CalendarProfile
  9792. wNABurl2
  9793.     0R1S2S6S
  9794. NABurl3
  9795. CalendarProfile
  9796. wNABurl3
  9797.     0R1S2S6S
  9798. NABurl4
  9799. CalendarProfile
  9800. wNABurl4
  9801.     0R1S2S6S
  9802. anchorHead
  9803. <a href="
  9804.     0RR1S2S
  9805. anchorMid
  9806. "><font size=2><b>
  9807.     0R1S2S
  9808. anchorTail
  9809. </b></font></a>
  9810.     0R1S2S
  9811. spaces
  9812.     
  9813.     0R1S2S
  9814. Link1
  9815. anchorHead
  9816. NABurl1
  9817. anchorMid
  9818. NAB1"
  9819. anchorTail"
  9820. spaces"
  9821.     0RR1S2S3S4S5S6S7S8S9S10S11S12S
  9822. Link2
  9823. anchorHead
  9824. NABurl2
  9825. anchorMid
  9826. NAB2"
  9827. anchorTail"
  9828. spaces"
  9829.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  9830. Link3
  9831. anchorHead
  9832. NABurl3
  9833. anchorMid
  9834. NAB3"
  9835. anchorTail"
  9836. spaces"
  9837.     0R1S2S3S4S5S6S7S8S9S10S11S12S
  9838. Link4
  9839. anchorHead
  9840. NABurl4
  9841. anchorMid
  9842. NAB4"
  9843. anchorTail"
  9844.     0R1S2S3S4S5S6S7S8S9S10S
  9845. Link1
  9846. Link2
  9847. Link3
  9848. Link4
  9849.     0RR1S2S3S4S5S6S7S8S9S10S
  9850. tmpCustomAddressLinks
  9851. $HideMailHeader
  9852.     0S0E
  9853. MailAddress
  9854. InheritedReplyToh
  9855. InheritedReplyTo
  9856. InheritedReplyTo
  9857. InheritedFrom
  9858.     1S2S8S9S10S11S13S15S
  9859. MailAddress
  9860.     0RR4SSendTo[<size=58>]
  9861. CopyTo[<size=58>]
  9862. DeliveredDate
  9863. BlindCopyTo
  9864.   (bcc: 
  9865. BlindCopyTo
  9866.     4S5S6S7S8S9S10S11S13S14S15S19S21S22S24StmpBlindCopyTo
  9867.     bcc:
  9868. BlindCopyTo[<size=58>]
  9869.     Subject:
  9870. ReplyText
  9871. MailStEd|
  9872.     1S2S
  9873. Prefix
  9874. ReplyText
  9875.     0R1S2S8S9S11S13S
  9876. Prefix
  9877. ReplyText
  9878. Subject
  9879. Topic
  9880. Subject
  9881.     0R1S2S5S6S8S10S11S12S14S16S
  9882. Prefix
  9883. Subj"
  9884.     0R10S12S16S17S19S21S22S23S
  9885. Subject[<size=58>]
  9886.     Subject:
  9887. Subject
  9888. tmpDisplaySubject
  9889. tmpDisplayLink
  9890. Body[<ROWS="10" COLS="60"  WRAP=VIRTUAL>]
  9891.     [<BR>]File Attachments:
  9892. [<b>  </b>]Mail Options[<BR>]
  9893. Importance
  9894. High|1Normal|2Low|3
  9895.     Importance
  9896. DeliveryReport
  9897. On failure|BConfirm delivery|CTrace entire path|TNone|N
  9898.     DeliveryReport
  9899. DeliveryPriority
  9900. High|HNormal|NLow|L
  9901.     Delivery Priority
  9902.     0S0E
  9903.     Submit
  9904.     [<BR><BR><BR>]
  9905. [<b>  </b>]Tips
  9906.     Click on the 
  9907.     Address
  9908.      button to search through your address books.
  9909.     The 
  9910.     Trash
  9911.      button will move this document into the Trash folder.
  9912.     Some web browsers do not support adding 
  9913.     file attachments
  9914.      to documents. In such cases, the file attachment control may appear as an edit control. Any text entered in that edit control will not be included in your mail message.
  9915.     Hidden w/ HTML tag in help description field:
  9916. tmpAssign
  9917. &Assign
  9918.     1S2S
  9919. Path_Info
  9920. tmpAssign
  9921. tmpAssign
  9922.     0R1S6S11S12S14S16S
  9923. tmpAssignTask[<TYPE=hidden >]
  9924. Path_Info
  9925. tmpPath_Info[<TYPE=hidden >]
  9926. tmpTask
  9927. &Task
  9928.     1S2S
  9929. Path_Info
  9930. tmpTask
  9931. tmpTask
  9932.     0R1S6S11S12S14S16S
  9933. tmpBackToTask[<TYPE=hidden >]
  9934. Edit Document
  9935. Memo&
  9936. Edit 
  9937.     0S0E
  9938. Reply
  9939. Reply
  9940. Address
  9941. OldSubject
  9942. Subject
  9943. Subject
  9944. IN TRASH - TEMPORARY DOCUMENT
  9945. Subject
  9946.     0R1S2S3S
  9947. tmpSendOptions
  9948.     0R1S
  9949.     0R1S10S14S16S23S
  9950.     0R4S
  9951. path"
  9952. /wAddress?OpenForm&
  9953.     0R3S4S5S6S7S8S15S17S18S
  9954. Trashi
  9955.     1S2S8S12S14S
  9956. /wCommand?OpenAgent&ToTrash=
  9957. &From="
  9958.     0R1S2S3S4S11S13S15S16S
  9959. Path_Info
  9960. Path_Info
  9961.     0R1S2S6S10S11S15S
  9962. view1
  9963.     0R1S2S3S10S14S18S21S
  9964. view2
  9965. view1
  9966. view1
  9967. view1
  9968.     0R1S2S3S10S14S18S21S
  9969. path"
  9970. view2
  9971.     0RR3S4S5S6S7S8S
  9972.     1S2S8S12S14S
  9973. /wFolders?OpenForm&UNID=
  9974. &View="
  9975.     0R1S2S3S4S11S13S15S16S
  9976. Path_Info
  9977. Path_Info
  9978.     0R1S2S6S10S11S15S
  9979. view1
  9980.     0R1S2S3S10S14S18S21S
  9981. view2
  9982. view1
  9983. view1
  9984. view1
  9985.     0R1S2S3S10S14S18S21S
  9986. path"
  9987. view2
  9988.     0RR3S4S5S6S7S8S
  9989. _Move To Folder...
  9990. _Forward
  9991. _Remove From Folder...
  9992. Categori_ze
  9993. SSend
  9994. In Box*
  9995. ($InBox)
  9996. Calendar
  9997.     1S2S8S12S14S
  9998. path"
  9999. /($Calendar)?OpenView&Grid=
  10000. CalendarProfile
  10001. wCalGridType
  10002.     0R3S4S5S6S7S8S12S
  10003. Meetings.
  10004. ($Meetings)
  10005. To Do
  10006. ($ToDo)
  10007. All Views
  10008. O=Lotus Notes
  10009. O=Lotus Notes
  10010. PURSAFO
  10011. |.:#U
  10012. O=Lotus Notes
  10013. CN=Lotus Notes Template Development/O=Lotus Notes
  10014. PURSAFO
  10015. Fde!f^^
  10016. $$FormPostOpenAction
  10017. ExpireDate
  10018. ReplyDate
  10019. $TypeIcon
  10020. ReplyNumber
  10021. ComposedDate
  10022. $SCRIPTOBJ_25
  10023. $TITLE
  10024. $AUTOLAUNCH
  10025. $INFO
  10026. $WINDOWTITLE
  10027. $Script
  10028. $$Script_O
  10029. $$ScriptName
  10030. $$FormScript
  10031. $$$FormScript_O
  10032. $BODY
  10033. $ACTIONS
  10034.  wGuide
  10035. Hidden: 
  10036. SaveOptions
  10037. Work around for bug in $$Return related to @DbName
  10038.     0R6S10S12S
  10039. PathAndName
  10040. PathAndName
  10041. /($Inbox)]"
  10042.     1S2S3S4S
  10043. $$Return
  10044. [<b> </b>]
  10045. [<b>   </b>]Guide
  10046. Security
  10047. CGM Image
  10048. When accessing your mail file from a public workstation, always quit the web browser when you are done. This will clear your authentication with the Domino server and prevent unauthorized access to your mail file.
  10049. Preferences
  10050. owner of the mail file must be specified
  10051.  before the Memo, Reply, Phone Message, Task, Calendar Entry and RSVP documents will work correctly. 
  10052. Main Views
  10053. All views in your mail file have a similar format. The left column of the view includes links to common actions. Click these links to create new documents, navigate to different views, or access the preference page.
  10054. The right side of each view contains the list of documents in that view. Click on a document link to display that document.
  10055. Use the Begin and End links to move to the beginning or end of the current view. Use the Previous and Next links to display the previous or next page of documents in the view. 
  10056. Action Bar
  10057. Most documents have an Action Bar of buttons at the top of the page. When displaying a document, use the up and down arrows to navigate to the next document in the current view without returning to that view. 
  10058. A Memo is the basic email document. You can create and edit Memos, and then choose to save them as drafts, send them, or send and save a copy. 
  10059. Before you send a message you must fill in the following information:
  10060.  - The primary recipients of the message. The content of the message is directed to them or they must take action on this message.
  10061.  - Recipients who will receive a copy of the message, but are not usually required to take action on it. Filling in this field is optional.
  10062.  - Recipients who will receive a blind copy of this message. Filling in this field is optional.
  10063. Reply
  10064. Use this form to reply to a message that you have received.[<BR><BR>]
  10065. Meeting (Calendar Entry)
  10066. There are five flavors of Meeting documents. Appointments, Events, Reminders and Anniversaries are personal calendar entries, while Invitations are meetings that include other people.
  10067. By saving an Invitation that has required or optional attendees, those attendees will receive a mailed Invitation. The originator of an Invitation is considered the chairperson for that meeting.
  10068. The attendees may accept or decline an Invitation by selecting the "RSVP" button on their Invitation. 
  10069. If the chairperson changes the date or beginning time of the meeting, all people invited will receive a reschedule notice.
  10070. The chairperson may choose to add additional attendees by editing the original meeting document and adding their names.
  10071. The chairperson has the option to display the RSVP status of invitees, send a confirmation notice or cancel the meeting.
  10072. Tasks
  10073. Use this form to remind yourself of something that you need to do, or to ask another person to do something for you. If you send a Task to another Mail user, or to several users, they will be able to notify you when they have completed the Task.  A special view (see To Do view below) has been provided to help you organize your Tasks and the Tasks that you have assigned to other people.
  10074. Folders
  10075. Views
  10076. The following views and folders are provided for you:
  10077. Inbox
  10078.  - Messages that have been sent to you by another Mail user will appear here.
  10079. Calendar
  10080.  - This view looks like a desktop calendar.  Appointments you have scheduled will be displayed in two day, one week, two week, or one month calendar pages.
  10081. Drafts
  10082.  - Messages that you have created and saved, but have not yet sent, will appear here.
  10083.  - Messages will appear here after you have sent them. You can choose to have messages saved here automatically if you like.
  10084. Trash
  10085.  - Messages that you have marked for deletion will appear here.
  10086. To Do
  10087.  - Tasks that you have created for yourself and Tasks that you have assigned to other people will appear here. This view will also help you keep track of which Tasks have been completed and when. Make sure that each Task is categorized correctly by clicking on the Update link in this view. 
  10088. Meetings
  10089.  - Invitations to meetings and responses that people have returned to you will appear here.
  10090. Folders -
  10091.  Folders are special types of views. Documents can be moved in and out of any folder. Views, on the other hand, include documents according to a view selection formula. For example, the Calendar view will only display documents that are calendar entries and never display other kinds of documents. The Inbox and trash folders are special predefined folders.
  10092. File Utilities
  10093. Create and destroy folders, move and copy documents in and out of folders, and copy documents out of views by clicking on the File button at the top of each document.
  10094. Trash Button
  10095. Move a document into the Trash folder by clicking its action bar "Trash" button. Delete all documents in the Trash folder by clicking on a view's "Empty Trash" link.
  10096. To Do View
  10097. Click on the Update link in the top left corner to ensure that the status of each Task is up-to-date. The start date and due dates are compared to determine each Tasks' status.
  10098. Phone Message
  10099. Use this form to record a phone message for another Mail users.
  10100. File Attachments
  10101. Some web browsers do not support adding file attachments to documents. In such cases, the file attachment control may appear as an edit control. Any text entered in that edit control will not be included in your mail message.
  10102. [<br> <br>]
  10103.     0S0E
  10104.     Return to the In Box
  10105. Categori_ze
  10106. _Edit Document
  10107. Send Docu_ment
  10108. _Forward
  10109. _Move To Folder...
  10110. _Remove From Folder
  10111. In Box*
  10112. ($InBox)
  10113. Calendar
  10114.     1S2S8S12S14S
  10115. path"
  10116. /($Calendar)?OpenView&Grid=
  10117. CalendarProfile
  10118. wCalGridType
  10119.     0R3S4S5S6S7S8S12S
  10120. Meetings.
  10121. ($Meetings)
  10122. To Do
  10123. ($ToDo)
  10124. All Views
  10125. O=Lotus Notes
  10126. O=Lotus Notes
  10127. PURSAFO
  10128. |.:#U
  10129. O=Lotus Notes
  10130. CN=Lotus Notes Template Development/O=Lotus Notes
  10131. PURSAFO
  10132. Fde!f^^
  10133. $TITLE
  10134. $INFO
  10135. $$ScriptName
  10136. $BODY
  10137. $ACTIONS
  10138. ($Drafts)1$
  10139. $58$59$55
  10140. $65$65
  10141. CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  10142. $FolderInfo($FolderInfo)
  10143. $103Y
  10144. CN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes8##########################
  10145. $FolderRefInfo($FolderRefInfo)
  10146. $FolderRefV
  10147.     0S0E
  10148. $105$FolderRefID$FolderRefFlags$Conflict
  10149. $FolderRefh
  10150.     L1S1
  10151. $105$
  10152. $105$FolderRefID
  10153. $105Folder UNID*
  10154. $FolderRefV
  10155.     0S0E
  10156. $FolderRefIDFolder Reference ID$FolderRefFlagsFolder Reference Flags&
  10157. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
  10158. ($Meetings)|Meetings11
  10159. StartDateTime
  10160. StartDateTimeY
  10161. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  10162. ($POP3UIDL)|($POP3UIDL)J
  10163. $RFC822MessageSize
  10164.     1S2S3S
  10165. $RFC822MessageSize
  10166. $POP3ExportSize
  10167.     1S2S3S
  10168. $POP3ExportSize
  10169. MailPop3UIDLDeliveredDate$32$30$Conflict
  10170. MailPop3UIDL
  10171.     1S2S3S
  10172. MailPop3UIDL
  10173.     0RL1S2S3S1-
  10174. MailPop3UIDLDeliveredDate
  10175. MailPop3UIDLMailPop3UIDLDeliveredDateDelivered Date$32$RFC822MessageSize`
  10176. $RFC822MessageSize
  10177.     1S2S3S
  10178. $RFC822MessageSize
  10179. $30$POP3ExportSize\
  10180. $POP3ExportSize
  10181.     1S2S3S
  10182. $POP3ExportSize
  10183. 553Courier NewYP
  10184. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
  10185. ($Profiles)H
  10186. Form$Conflict
  10187. Profile
  10188.     L1S5S1
  10189. FormType&
  10190. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  10191. ##########################################################
  10192. New Memo.
  10193.     0S0E
  10194. Delete 
  10195.     0S0E
  10196. Move To Folder...
  10197.     0S0E
  10198. _Forward
  10199. Reply
  10200. Reply
  10201.     0S0E
  10202. Reply With History@
  10203. Reply with history
  10204.     0S0E
  10205. Categori_zeK
  10206. _Edit Document
  10207. Send    
  10208. Resend
  10209. NonDelivery Report
  10210. Not a Delivery Failure Report
  10211. You cannot Resend a message unless it is a Delivery Failure Report.
  10212.     6S12S17S23S
  10213. Convert To TaskK0
  10214. ConvertToTask
  10215. _Move To Folder...
  10216. _Remove From Folder...
  10217. O=Lotus Notes
  10218. O=Lotus Notes
  10219. PURSAFO
  10220. |.:#U
  10221. O=Lotus Notes
  10222. CN=Lotus Notes Template Development/O=Lotus Notes
  10223. PURSAFO
  10224. Fde!f^^
  10225. $Name
  10226. $TITLE
  10227. $Index
  10228. $Formula
  10229. $FormulaClass
  10230. $VIEWFORMAT
  10231. $Comment
  10232. $ACTIONS
  10233. &Arial
  10234. '++LotusScript Development Environment:2:5:(Options):0:66
  10235. '++LotusScript Development Environment:2:5:(Forward):0:1
  10236. Declare Sub Exiting(Source As Field)
  10237. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10238. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10239. Private Sub BindEvents(Byval Objectname_ As String)
  10240.      Static Source As FIELD
  10241.      Set Source = Bind(Objectname_)
  10242.      On Event Exiting From Source Call Exiting
  10243. End Sub
  10244. '++LotusScript Development Environment:2:2:Exiting:1:12
  10245. Sub Exiting(Source As Field)
  10246.      
  10247. End Sub
  10248. '++LotusScript Development Environment:2:5:(Options):0:66
  10249. '++LotusScript Development Environment:2:5:(Forward):0:1
  10250. Declare Sub Exiting(Source As Field)
  10251. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10252. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10253. Private Sub BindEvents(Byval Objectname_ As String)
  10254.      Static Source As FIELD
  10255.      Set Source = Bind(Objectname_)
  10256.      On Event Exiting From Source Call Exiting
  10257. End Sub
  10258. '++LotusScript Development Environment:2:2:Exiting:1:12
  10259. Sub Exiting(Source As Field)
  10260.      
  10261. End Sub
  10262. '++LotusScript Development Environment:2:5:(Options):0:66
  10263. '++LotusScript Development Environment:2:5:(Forward):0:1
  10264. Declare Sub Exiting(Source As Field)
  10265. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10266. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10267. Private Sub BindEvents(Byval Objectname_ As String)
  10268.      Static Source As FIELD
  10269.      Set Source = Bind(Objectname_)
  10270.      On Event Exiting From Source Call Exiting
  10271. End Sub
  10272. '++LotusScript Development Environment:2:2:Exiting:1:12
  10273. Sub Exiting(Source As Field)
  10274.      
  10275. End Sub
  10276. '++LotusScript Development Environment:2:5:(Options):0:66
  10277. '++LotusScript Development Environment:2:5:(Forward):0:1
  10278. Declare Sub Exiting(Source As Field)
  10279. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10280. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10281. Private Sub BindEvents(Byval Objectname_ As String)
  10282.      Static Source As FIELD
  10283.      Set Source = Bind(Objectname_)
  10284.      On Event Exiting From Source Call Exiting
  10285. End Sub
  10286. '++LotusScript Development Environment:2:2:Exiting:1:12
  10287. Sub Exiting(Source As Field)
  10288.      
  10289. End Sub
  10290. '++LotusScript Development Environment:2:5:(Options):0:66
  10291. '++LotusScript Development Environment:2:5:(Forward):0:1
  10292. Declare Sub Exiting(Source As Field)
  10293. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10294. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10295. Private Sub BindEvents(Byval Objectname_ As String)
  10296.      Static Source As FIELD
  10297.      Set Source = Bind(Objectname_)
  10298.      On Event Exiting From Source Call Exiting
  10299. End Sub
  10300. '++LotusScript Development Environment:2:2:Exiting:1:12
  10301. Sub Exiting(Source As Field)
  10302.      
  10303. End Sub
  10304. '++LotusScript Development Environment:2:5:(Options):0:66
  10305. '++LotusScript Development Environment:2:5:(Forward):0:1
  10306. Declare Sub Exiting(Source As Field)
  10307. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10308. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10309. Private Sub BindEvents(Byval Objectname_ As String)
  10310.      Static Source As FIELD
  10311.      Set Source = Bind(Objectname_)
  10312.      On Event Exiting From Source Call Exiting
  10313. End Sub
  10314. '++LotusScript Development Environment:2:2:Exiting:1:12
  10315. Sub Exiting(Source As Field)
  10316.      
  10317. End Sub
  10318. '++LotusScript Development Environment:2:5:(Options):0:66
  10319. '++LotusScript Development Environment:2:5:(Forward):0:1
  10320. Declare Sub Exiting(Source As Field)
  10321. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10322. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10323. Private Sub BindEvents(Byval Objectname_ As String)
  10324.      Static Source As FIELD
  10325.      Set Source = Bind(Objectname_)
  10326.      On Event Exiting From Source Call Exiting
  10327. End Sub
  10328. '++LotusScript Development Environment:2:2:Exiting:1:12
  10329. Sub Exiting(Source As Field)
  10330.      
  10331. End Sub
  10332. '++LotusScript Development Environment:2:5:(Options):0:66
  10333. '++LotusScript Development Environment:2:5:(Forward):0:1
  10334. Declare Sub Exiting(Source As Field)
  10335. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10336. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10337. Private Sub BindEvents(Byval Objectname_ As String)
  10338.      Static Source As FIELD
  10339.      Set Source = Bind(Objectname_)
  10340.      On Event Exiting From Source Call Exiting
  10341. End Sub
  10342. '++LotusScript Development Environment:2:2:Exiting:1:12
  10343. Sub Exiting(Source As Field)
  10344.      
  10345. End Sub
  10346. '++LotusScript Development Environment:2:5:(Options):0:66
  10347. '++LotusScript Development Environment:2:5:(Forward):0:1
  10348. Declare Sub Exiting(Source As Field)
  10349. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10350. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10351. Private Sub BindEvents(Byval Objectname_ As String)
  10352.      Static Source As FIELD
  10353.      Set Source = Bind(Objectname_)
  10354.      On Event Exiting From Source Call Exiting
  10355. End Sub
  10356. '++LotusScript Development Environment:2:2:Exiting:1:12
  10357. Sub Exiting(Source As Field)
  10358.      
  10359. End Sub
  10360. '++LotusScript Development Environment:2:5:(Options):0:66
  10361. '++LotusScript Development Environment:2:5:(Forward):0:1
  10362. Declare Sub Exiting(Source As Field)
  10363. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10364. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10365. Private Sub BindEvents(Byval Objectname_ As String)
  10366.      Static Source As FIELD
  10367.      Set Source = Bind(Objectname_)
  10368.      On Event Exiting From Source Call Exiting
  10369. End Sub
  10370. '++LotusScript Development Environment:2:2:Exiting:1:12
  10371. Sub Exiting(Source As Field)
  10372.      
  10373. End Sub
  10374. '++LotusScript Development Environment:2:5:(Options):0:66
  10375. '++LotusScript Development Environment:2:5:(Forward):0:1
  10376. Declare Sub Exiting(Source As Field)
  10377. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10378. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10379. Private Sub BindEvents(Byval Objectname_ As String)
  10380.      Static Source As FIELD
  10381.      Set Source = Bind(Objectname_)
  10382.      On Event Exiting From Source Call Exiting
  10383. End Sub
  10384. '++LotusScript Development Environment:2:2:Exiting:1:12
  10385. Sub Exiting(Source As Field)
  10386.      
  10387. End Sub
  10388. '++LotusScript Development Environment:2:5:(Options):0:66
  10389. '++LotusScript Development Environment:2:5:(Forward):0:1
  10390. Declare Sub Exiting(Source As Field)
  10391. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10392. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10393. Private Sub BindEvents(Byval Objectname_ As String)
  10394.      Static Source As FIELD
  10395.      Set Source = Bind(Objectname_)
  10396.      On Event Exiting From Source Call Exiting
  10397. End Sub
  10398. '++LotusScript Development Environment:2:2:Exiting:1:12
  10399. Sub Exiting(Source As Field)
  10400.      
  10401. End Sub
  10402. '++LotusScript Development Environment:2:5:(Options):0:66
  10403. '++LotusScript Development Environment:2:5:(Forward):0:1
  10404. Declare Sub Exiting(Source As Field)
  10405. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10406. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10407. Private Sub BindEvents(Byval Objectname_ As String)
  10408.      Static Source As FIELD
  10409.      Set Source = Bind(Objectname_)
  10410.      On Event Exiting From Source Call Exiting
  10411. End Sub
  10412. '++LotusScript Development Environment:2:2:Exiting:1:12
  10413. Sub Exiting(Source As Field)
  10414.      
  10415. End Sub
  10416. '++LotusScript Development Environment:2:5:(Options):0:66
  10417. '++LotusScript Development Environment:2:5:(Forward):0:1
  10418. Declare Sub Exiting(Source As Field)
  10419. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10420. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10421. Private Sub BindEvents(Byval Objectname_ As String)
  10422.      Static Source As FIELD
  10423.      Set Source = Bind(Objectname_)
  10424.      On Event Exiting From Source Call Exiting
  10425. End Sub
  10426. '++LotusScript Development Environment:2:2:Exiting:1:12
  10427. Sub Exiting(Source As Field)
  10428.      
  10429. End Sub
  10430. '++LotusScript Development Environment:2:5:(Options):0:66
  10431. '++LotusScript Development Environment:2:5:(Forward):0:1
  10432. Declare Sub Exiting(Source As Field)
  10433. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10434. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10435. Private Sub BindEvents(Byval Objectname_ As String)
  10436.      Static Source As FIELD
  10437.      Set Source = Bind(Objectname_)
  10438.      On Event Exiting From Source Call Exiting
  10439. End Sub
  10440. '++LotusScript Development Environment:2:2:Exiting:1:12
  10441. Sub Exiting(Source As Field)
  10442.      
  10443. End Sub
  10444. Owner
  10445. Calendar Profile
  10446. Calendar Profile for 
  10447. Owner
  10448.     3S4S5S6S7S8S9S10S'++LotusScript Development Environment:2:5:(Options):0:74
  10449. Option Public
  10450. '++LotusScript Development Environment:2:5:(Forward):0:1
  10451. Declare Sub Terminate
  10452. Declare Function IsValidDateRange(FieldName As String) As Integer
  10453. '++LotusScript Development Environment:2:5:(Declarations):0:10
  10454. Dim uidoc As NotesUIDocument
  10455. Dim session As NotesSession
  10456. Dim trdr As NotesDateRange
  10457. Dim note As NotesDocument
  10458. Dim db As NotesDatabase
  10459. Dim acl As NotesAcl
  10460. Dim aclentry As NotesAclEntry
  10461. Dim namelookup As NotesName
  10462. Dim DoNotEdit As Integer
  10463. '++LotusScript Development Environment:2:2:Terminate:1:10
  10464. Sub Terminate
  10465.      
  10466. End Sub
  10467. '++LotusScript Development Environment:2:1:IsValidDateRange:1:8
  10468. Function IsValidDateRange(FieldName As String) As Integer
  10469. 'returns true if the given date range is valid, false otherwise
  10470.      Dim datetime As String
  10471.      
  10472.      On Error Goto ErrorRoutine
  10473.      
  10474.      IsValidDateRange = True
  10475.      datetime = uidoc.FieldGetText(FieldName)
  10476.      trdr.Text = datetime
  10477.      Exit Function
  10478.      
  10479. ErrorRoutine:
  10480.      IsValidDateRange = False
  10481.      Exit Function
  10482. End Function
  10483.  wPreferences'++LotusScript Development Environment:2:5:(Options):0:66
  10484. '++LotusScript Development Environment:2:5:(Forward):0:1
  10485. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  10486. Declare Sub Postopen(Source As Notesuidocument)
  10487. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  10488. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10489. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10490. Private Sub BindEvents(Byval Objectname_ As String)
  10491.      Static Source As NOTESUIDOCUMENT
  10492.      Set Source = Bind(Objectname_)
  10493.      On Event Querysave From Source Call Querysave
  10494.      On Event Postopen From Source Call Postopen
  10495.      On Event Querymodechange From Source Call Querymodechange
  10496. End Sub
  10497. '++LotusScript Development Environment:2:2:Querysave:1:12
  10498. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  10499.      
  10500. End Sub
  10501. '++LotusScript Development Environment:2:2:Postopen:1:12
  10502. Sub Postopen(Source As Notesuidocument)
  10503.      
  10504.      Set note = source.Document
  10505.      Set session = New NotesSession
  10506.      Set trdr  = session.CreateDateRange
  10507.      Set uidoc = source
  10508.      Set db = session.CurrentDatabase
  10509.      
  10510. 'if you are less than an Author you cannot edit
  10511.      If db.CurrentAccessLevel < ACLLEVEL_AUTHOR Then
  10512.           DoNotEdit = True
  10513.           source.EditMode = False
  10514.      End If
  10515.      
  10516.      If source.EditMode Then Call source.Refresh
  10517.      
  10518. End Sub
  10519. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  10520. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  10521.      If DoNotEdit And source.EditMode = False Then continue = False
  10522. End Sub
  10523. UserAccess
  10524.     1S2S11S
  10525. AutoProcessMeetings
  10526. AutoProcessMeetings
  10527.     0RR1S2S3S
  10528. AutoProcessMeetings
  10529. AutoProcessNotices
  10530. UserAccess
  10531. AutoProcessMeetings
  10532. Autoprocess
  10533. You are not authorized to enable the Autoprocessing agent.  Please contact a designer or manager of this database.
  10534. AutoProcessNotices
  10535. AutoProcessMeetings
  10536. AutoProcessMeetings
  10537. AutoProcessNotices
  10538. UserAccess
  10539. AutoProcessMeetings
  10540. Autoprocess
  10541. You are not authorized to disable the Autoprocessing agent.  Please contact a designer or manager of this database.
  10542. AutoProcessNotices
  10543. AutoProcessMeetings
  10544.     0R3S4S5S6S12RS6E15S16S18RS12E20RS21E27RS21E32RS21E38S40S43RS21E45RS6E59RS12E61RS21E68RS21E72RS21E74RS12E78R79S80S81S82S87RS6E90S91S93RS12E95RS21E102RS21E107RS21E113S115S118RS21E120RS6E134RS12E136RS21E143RS21E147RS21E149RS12E153R
  10545. '++LotusScript Development Environment:2:5:(Options):0:66
  10546. '++LotusScript Development Environment:2:5:(Forward):0:1
  10547. Declare Sub Exiting(Source As Field)
  10548. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10549. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10550. Private Sub BindEvents(Byval Objectname_ As String)
  10551.      Static Source As FIELD
  10552.      Set Source = Bind(Objectname_)
  10553.      On Event Exiting From Source Call Exiting
  10554. End Sub
  10555. '++LotusScript Development Environment:2:2:Exiting:1:12
  10556. Sub Exiting(Source As Field)
  10557.      
  10558. End Sub
  10559. [<b> </b>]
  10560. *.PCX
  10561. TIFF 5.0 
  10562. .0/6.1
  10563. *.WPD;*.W
  10564. _ITIFF
  10565. [<b>   </b>]User Preferences
  10566.     [<BR>]
  10567.     0S0E
  10568. Save Preferences
  10569.     [<BR><BR>]Mail File Owner: 
  10570. Owner[<size=50>]
  10571.     You are currently logged in as "
  10572. CurrentAcount
  10573.     If you are the mail file owner, you can copy your account name as it appears here into the Mail File Owner field.
  10574.     The Mail File Owner name must be entered in Notes canonical format. Please refer to the "Tips" section below if you should be listed as the owner of this file, but are not.
  10575.     Default Mail setting: 
  10576. DefaultMailOpt
  10577. Send Only|1Send and Save|2Save as Draft|3
  10578. EnableTrashIcon
  10579. Tag documents that have been moved to the trash folder.|1
  10580.     [<BR><BR>]
  10581. AutoProcessMeetings
  10582. Meetings|1
  10583.     Autoprocess Meetings only from the following people: 
  10584. MeetingsPeople[<size=50>]
  10585.     [<BR>][<BR>]
  10586. [<b> </b>]Scheduling Options
  10587.     [<BR>]Default meeting duration:
  10588. DefaultDuration[<size=3>]
  10589.      minutes[<BR><BR>]
  10590. CalEntryType
  10591. Appointment|0Invitation|3Event|2Reminder|4Anniversary|1
  10592.     Default Calendar Entry type[<BR><BR>]
  10593. CalGridType
  10594. Two Days|1One Week|2Two Weeks|3One Month|4One Year|5
  10595.     Default Calendar Grid type[<BR><BR>]
  10596. CalEntryHide
  10597. Hide new Calendar Entries from public viewing|1
  10598.     [<BR>]
  10599. AutoRemoveFromInbox
  10600. Remove Invitations from the In Box after responding to them.|1
  10601.     [<BR><BR>]
  10602. [<b> </b>]Notes Directory Lookup Address Books
  10603.     Book 1: 
  10604. NotesNab1[<size=50>]
  10605.     Book 2: 
  10606. NotesNab2[<size=50>]
  10607.     Book 3: 
  10608. NotesNab3[<size=50>]
  10609.     Book 4: 
  10610. NotesNab4[<size=50>]
  10611.     [<BR><BR>]
  10612. [<b> </b>]Freetime Options
  10613.     Only the following users can read my Freetime Schedule:
  10614. AllowBusyAccess
  10615. AllowBusyAccess
  10616. Owner
  10617.     6S7S8S9S12S13S16SAllowBusyAccess[<size=30>]
  10618. [<BR><BR>]
  10619.     Allowable free times:
  10620. Sunday
  10621. Sunday:|1
  10622.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
  10623. $Times1
  10624. $Times1
  10625.     15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
  10626. textdate
  10627. $Times1
  10628.     0S0E
  10629. list1
  10630. textdate
  10631. list2
  10632. textdate
  10633. date1
  10634. list1
  10635. date2
  10636. list2
  10637. result
  10638. date2
  10639. date1
  10640. result
  10641. result
  10642. Invalid time range for Sunday.  Ranges may not span days.
  10643.     0R4S5S7S8S10S11S
  10644. $Times1[<size=70>]
  10645. Monday
  10646. Monday:|2
  10647.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
  10648. $Times2
  10649. $Times2
  10650.     15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
  10651. textdate
  10652. $Times2
  10653.     0S0E
  10654. list1
  10655. textdate
  10656. list2
  10657. textdate
  10658. date1
  10659. list1
  10660. date2
  10661. list2
  10662. result
  10663. date2
  10664. date1
  10665. result
  10666. result
  10667. Invalid time range for Monday.  Ranges may not span days.
  10668.     0R4S5S7S8S10S11S
  10669. $Times2[<size=70>]
  10670. Tuesday
  10671. Tuesday:|3
  10672.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
  10673. $Times3
  10674. $Times3
  10675.     15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
  10676. textdate
  10677. $Times3
  10678.     0S0E
  10679. list1
  10680. textdate
  10681. list2
  10682. textdate
  10683. date1
  10684. list1
  10685. date2
  10686. list2
  10687. result
  10688. date2
  10689. date1
  10690. result
  10691. result
  10692. Invalid time range for Tuesday.  Ranges may not span days.{
  10693.     0R4S5S7S8S10S11S
  10694. $Times3[<size=70>]
  10695. Wednesday
  10696. Wednesday:|4
  10697.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
  10698. $Times4
  10699. $Times4
  10700.     15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
  10701. textdate
  10702. $Times4
  10703.     0S0E
  10704. list1
  10705. textdate
  10706. list2
  10707. textdate
  10708. date1
  10709. list1
  10710. date2
  10711. list2
  10712. result
  10713. date2
  10714. date1
  10715. result
  10716. result
  10717. Invalid time range for Wednesday.  Ranges may not span days.{
  10718.     0R4S5S7S8S10S11S
  10719. $Times4[<size=70>]
  10720. Thursday
  10721. Thursday:|5
  10722.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
  10723. $Times5
  10724. $Times5
  10725.     15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
  10726. textdate
  10727. $Times5
  10728.     0S0E
  10729. list1
  10730. textdate
  10731. list2
  10732. textdate
  10733. date1
  10734. list1
  10735. date2
  10736. list2
  10737. result
  10738. date2
  10739. date1
  10740. result
  10741. result
  10742. Invalid time range for Thursday.  Ranges may not span days.
  10743.     0R4S5S7S8S10S11S
  10744. $Times5[<size=70>]
  10745. Friday
  10746. Friday:|6
  10747.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
  10748. $Times6
  10749. $Times6
  10750.     15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
  10751. textdate
  10752. $Times6
  10753.     0S0E
  10754. list1
  10755. textdate
  10756. list2
  10757. textdate
  10758. date1
  10759. list1
  10760. date2
  10761. list2
  10762. result
  10763. date2
  10764. date1
  10765. result
  10766. result
  10767. Invalid time range for Friday.  Ranges may not span days.
  10768.     0R4S5S7S8S10S11S
  10769. $Times6[<size=70>]
  10770. Saturday
  10771. Saturday:|7
  10772.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
  10773. $Times7
  10774. $Times7
  10775.     15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
  10776. textdate
  10777. $Times7
  10778.     0S0E
  10779. list1
  10780. textdate
  10781. list2
  10782. textdate
  10783. date1
  10784. list1
  10785. date2
  10786. list2
  10787. result
  10788. date2
  10789. date1
  10790. result
  10791. result
  10792. Invalid time range for Saturday.  Ranges may not span days.
  10793.     0R4S5S7S8S10S11S
  10794. $Times7[<size=70>]
  10795.     [<BR><BR>]
  10796. [<b> </b>]Custom Address Book Links
  10797. EnableNABLinks
  10798. Enable Custom Address Book Links|1
  10799.     Link name 1: 
  10800. LinkName1[<size=14>]
  10801.     [<b>   </b>]URL 1: 
  10802. URL1[<size=50>]
  10803.     Link name 2: 
  10804. LinkName2[<size=14>]
  10805.     [<b>   </b>]URL 2: 
  10806. URL2[<size=50>]
  10807.     Link name 3: 
  10808. LinkName3[<size=14>]
  10809.     [<b>   </b>]URL 3: 
  10810. URL3[<size=50>]
  10811.     Link name 4: 
  10812. LinkName4[<size=14>]
  10813.     [<b>   </b>]URL 4: 
  10814. URL4[<size=50>]
  10815.     [<BR><BR>]
  10816. [<b> </b>]Favorite Links
  10817. EnableFavoriteLinks
  10818. Enable Favorite Links|1
  10819. IsFolder1
  10820. Folder|1URL|0
  10821.     [<b>     </b>]Name 1: 
  10822. FolderName1[<size=14>]
  10823.     [<b>   </b>]URL 1: 
  10824. fURL1[<size=40>]
  10825. IsFolder2
  10826. Folder|1URL|0
  10827.     [<b>     </b>]Name 2: 
  10828. FolderName2[<size=14>]
  10829.     [<b>   </b>]URL 2: 
  10830. fURL2[<size=40>]
  10831. IsFolder3
  10832. Folder|1URL|0
  10833.     [<b>     </b>]Name 3: 
  10834. FolderName3[<size=14>]
  10835.     [<b>   </b>]URL 3: 
  10836. fURL3[<size=40>]
  10837. IsFolder4
  10838. Folder|1URL|0
  10839.     [<b>     </b>]Name 4: 
  10840. FolderName4[<size=14>]
  10841.     [<b>   </b>]URL 4: 
  10842. fURL4[<size=40>]
  10843. IsFolder5
  10844. Folder|1URL|0
  10845.     [<b>     </b>]Name 5: 
  10846. FolderName5[<size=14>]
  10847.     [<b>   </b>]URL 5: 
  10848. fURL5[<size=40>]
  10849. IsFolder6
  10850. Folder|1URL|0
  10851.     [<b>     </b>]Name 6: 
  10852. FolderName6[<size=14>]
  10853.     [<b>   </b>]URL 6: 
  10854. fURL6[<size=40>]
  10855.     [<BR>]
  10856.     0S0E
  10857. Save Preferences
  10858. [<BR><BR>]
  10859. [<b> </b>]
  10860. [<b>   </b>]Tips
  10861.     The 
  10862.     Mail File Owner
  10863.      must be set correctly so that your mail messages are signed correctly. The Mail File Owner must be specified in Notes canonical format, where:
  10864.     [<b>   </b>]"CN=" proceeds the Common Name component of a hierarchical name,
  10865.     [<b>   </b>]"OU=" proceeds every Organizational Unit component of a hierarchical name.
  10866.     [<b>   </b>]"O=" proceeds the Organization component of a hierarchical name, and 
  10867.     [<b>   </b>]"C=" proceeds the Country component of a hierarchical name,
  10868.     [<b>   </b>]For example: "CN=Jeanne Employee/OU=Research/O=Acme/C=Country".
  10869.     [<b>   </b>]Many Notes installations use a subset of the hierarchical name components to identify users.
  10870.     Notes Directory Lookup Address Books
  10871.      can be any Notes address book file. The default address book is 
  10872.     usually 
  10873.     named "names.nsf" and appears as the first entry. Use the additional entries to reference other address book files.
  10874.     Freetime Options
  10875.      allow y
  10876.     ou to limit your free time schedule to only particular users. Enter their names in the field provided.
  10877.     Under 
  10878.     Allowable free times
  10879.     , select each day that you normally work and specify the hours that you normally work each day.
  10880. For example, if you work on Saturdays from 7:00 A.M. to 11:00 A.M. and from 12:00 P.M. to 3:00 P.M., select Saturday and 
  10881.     enter 7:00 AM - 11:00 AM, 12:00 PM - 3:00 PM.
  10882.     Custom Address Book Links
  10883.      can be any URL you like. These URLs will appear whenever editing a 
  10884.     document 
  10885.     which needs to be addressed. 
  10886.     Be sure to use the full URL of the target page. (e.g. http://www.lotus.com).
  10887.     When enabled, 
  10888.     Favorite Links
  10889.      will be included while displaying any view. Favorite Links can reference folders in this 
  10890.     mail file, or any URL you like. If a Favorite Link entry is marked as a folder, any value in the URL field is ignored.
  10891. Hidden:
  10892. Owner
  10893. $BusyName
  10894. $NoPurge
  10895. $NoPurge
  10896. Sunday
  10897. Monday
  10898. Tuesday
  10899. Wednesday
  10900. Thursday
  10901. Friday
  10902. Saturday
  10903.     0S0E
  10904. $AvailableDays
  10905. $PublicAccess
  10906. wPreferencesOpen
  10907. $$QueryOpenAgent
  10908. wPreferencesSave
  10909. $$QuerySaveAgent
  10910. SaveOptions
  10911. Path_Info
  10912. Path_Info
  10913. _Edit Document
  10914. _Forward
  10915. Categori_ze
  10916. Send Docu_ment
  10917. _Move To Folder...
  10918. _Remove From Folder
  10919. In Box*
  10920. ($InBox)
  10921. Calendar
  10922.     1S2S8S12S14S
  10923. path"
  10924. /($Calendar)?OpenView&Grid=
  10925. CalendarProfile
  10926. wCalGridType
  10927.     0R3S4S5S6S7S8S12S
  10928. Meetings.
  10929. ($Meetings)
  10930. To Do
  10931. ($ToDo)
  10932. All Views
  10933. O=Lotus Notes
  10934. O=Lotus Notes
  10935. PURSAFO
  10936. |.:#U
  10937. O=Lotus Notes
  10938. CN=Lotus Notes Template Development/O=Lotus Notes
  10939. PURSAFO
  10940. Fde!f^^
  10941. SundayStart_1
  10942. SundayEnd_1
  10943. SundayStart_2
  10944. SundayEnd_2
  10945. SundayStart_3
  10946. SundayEnd_3
  10947. SundayStart_4
  10948. SundayEnd_4
  10949. SundayStart_5
  10950. SundayEnd_5
  10951. SundayStart_6
  10952. SundayEnd_6
  10953. TaskLead
  10954. TimeSlotStart
  10955. TimeSlotEnd
  10956. TimeSlotInterval
  10957. SundayStart
  10958. SundayEnd
  10959. MondayStart
  10960. MondayEnd
  10961. TuesdayStart
  10962. TuesdayEnd
  10963. WednesdayStart
  10964. WednesdayEnd
  10965. ThursdayStart
  10966. ThursdayEnd
  10967. FridayStart
  10968. FridayEnd
  10969. SaturdayStart
  10970. SaturdayEnd
  10971. $SundayTimes
  10972. $MondayTimes
  10973. $TuesdayTimes
  10974. $WednesdayTimes
  10975. $ThursdayTimes
  10976. $FridayTimes
  10977. $SaturdayTimes
  10978. $1Times
  10979. $2Times
  10980. $3Times
  10981. $4Times
  10982. $5Times
  10983. $6Times
  10984. $7Times
  10985. $FormPublicAccess
  10986. AppointmentLead
  10987. ReminderLead
  10988. EventLead
  10989. AnniversaryLead
  10990. $$MonStart
  10991. $MonStart_O
  10992. $$Timess
  10993. $Timess_O
  10994. Timess
  10995. $$Times1s
  10996. $Times1s_O
  10997. $$Times1e
  10998. $Times1e_O
  10999. $$Times2e
  11000. $Times2e_O
  11001. $$Times3s
  11002. $Times3s_O
  11003. $$Times3e
  11004. $Times3e_O
  11005. $$Times4s
  11006. $Times4s_O
  11007. $$Times4e
  11008. $Times4e_O
  11009. $$Times5s
  11010. $Times5s_O
  11011. $$Times5e
  11012. $Times5e_O
  11013. $$Times6s
  11014. $Times6s_O
  11015. $$Times6e
  11016. $Times6e_O
  11017. $$Times7s
  11018. $Times7s_O
  11019. $$Times7e
  11020. $Times7e_O
  11021. Times1s
  11022. Times1e
  11023. Times2e
  11024. Times3e
  11025. Times4s
  11026. Times4e
  11027. Times5s
  11028. Times5e
  11029. Times6s
  11030. Times6e
  11031. Times7s
  11032. Times7e
  11033. $TITLE
  11034. $INFO
  11035. $WINDOWTITLE
  11036. $Script
  11037. $$Script_O
  11038. $$ScriptName
  11039. $$FormScript
  11040. $$$FormScript_O
  11041. $$FormAction2
  11042. $$$Times1
  11043. $$Times1_O
  11044. DefaultDuration
  11045. $Times1
  11046. $Times2
  11047. $Times3
  11048. $Times4
  11049. $Times5
  11050. $Times6
  11051. $Times7
  11052. $NoPurge
  11053. $BODY
  11054. $ACTIONS
  11055. $PublicAccess
  11056. Times New Roman
  11057. VersionOpt|
  11058.     6S7S9S14S
  11059. $VersionOpt
  11060.     0R1S2S3S
  11061. SavedOnce
  11062.     0R1S2S3S
  11063. PostedDate(
  11064.     0R1S2S3S
  11065. DeliveredDate
  11066.     0R1S2S3S
  11067. $AutoEditMode
  11068.     0R1S2S3S
  11069. MailSaveOptions
  11070.     0R1S2S3S
  11071. VersionOpt
  11072.     0R4S
  11073. Address Finder
  11074. '++LotusScript Development Environment:2:5:(Options):0:74
  11075. Option Public
  11076. '++LotusScript Development Environment:2:5:(Forward):0:1
  11077. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11078.  wAddressInvite'++LotusScript Development Environment:2:5:(Options):0:66
  11079. '++LotusScript Development Environment:2:5:(Forward):0:1
  11080. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11081. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11082. Declare Sub Postmodechange(Source As Notesuidocument)
  11083. Declare Sub Postopen(Source As Notesuidocument)
  11084. Declare Sub Initialize
  11085. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11086. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11087. Private Sub BindEvents(Byval Objectname_ As String)
  11088.      Static Source As NOTESUIDOCUMENT
  11089.      Set Source = Bind(Objectname_)
  11090.      On Event Querysave From Source Call Querysave
  11091.      On Event Queryclose From Source Call Queryclose
  11092.      On Event Postmodechange From Source Call Postmodechange
  11093.      On Event Postopen From Source Call Postopen
  11094. End Sub
  11095. '++LotusScript Development Environment:2:2:Querysave:1:12
  11096. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11097.      
  11098. End Sub
  11099. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11100. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11101.      
  11102. End Sub
  11103. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  11104. Sub Postmodechange(Source As Notesuidocument)
  11105.      
  11106. End Sub
  11107. '++LotusScript Development Environment:2:2:Postopen:1:12
  11108. Sub Postopen(Source As Notesuidocument)
  11109.      
  11110. End Sub
  11111. '++LotusScript Development Environment:2:2:Initialize:1:10
  11112. Sub Initialize
  11113.      
  11114. End Sub
  11115.     Hidden:
  11116. wAddressOpen
  11117. $$QueryOpenAgent
  11118. wAddressSave
  11119. $$QuerySaveAgent
  11120. SaveOptions
  11121. Path_Info
  11122. Path_Info
  11123. Query_string
  11124. Query_string[<TYPE=hidden >]
  11125. AbortGracefully
  11126.     1S2S
  11127. [<b>   </b>]Address Finder
  11128. [<!-- #1 --><TABLE WIDTH="100%"><TR><TD WIDTH="1%"><!-- #1.0 spacer --><TABLE WIDTH="100%"><TR><TD>
  11129. Address Book:<BR>
  11130. names.nsf
  11131. TargetNAB
  11132. AddressBooks
  11133. </TD></TR></TABLE><!-- end #1.0 spacer -->
  11134. </TD><TD WIDTH="99%"><!-- #1.a spacer --><TABLE WIDTH="100%"><TR><TD WIDTH="1%">Target Name:<BR>
  11135. tmpSearchString
  11136. </TD><TD WIDTH="99%">  Maximum Entries:<BR> 
  11137. tmpMaxListed
  11138. 1050100250500
  11139. </TD></TR></TABLE><!-- end #1.a spacer --></TD></TR><TR><TD WIDTH="1%"> Address List:</TD><TD WIDTH="99%"></TD></TR><TR VALIGN=top><TD WIDTH="1%"> 
  11140. tmpAddressList
  11141. tmpAddressList
  11142. </TD><TD WIDTH="99%"><!-- #1.1 refresh buttons spacing --><TABLE WIDTH="100%"><TR VALIGN=top><TD><!-- #1.1.1 refresh buttons --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11143.     0S0E
  11144.     0S0E
  11145. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn010.gif">
  11146. </TD><TD WIDTH="99%">Return with address selections</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11147. tmpSendTo
  11148. origSendTo
  11149. tmpcopyTo
  11150. origCopyTo
  11151.     0R1S
  11152. tmpBlindCopyTo
  11153. origBlindCopyTo
  11154.     0R1S
  11155. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn011.gif">
  11156. </TD><TD WIDTH="99%">Cancel new address selections</TD></TR>
  11157. <TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11158. tmpCurIndex
  11159. Domino
  11160. LoadAddressListByName
  11161. TargetNAB
  11162. tmpAddressList
  11163. tmpMaxListed
  11164. tmpSearchString
  11165.     1S2S3S7S9S11S13S15S
  11166. tmpNextIndex
  11167. tmpCurIndex
  11168. tmpMaxListedX
  11169.     0R1S2S3S5S9S10S14S
  11170. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn023.gif">
  11171. </TD><TD WIDTH="99%">Search for Target Name</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11172. tmpMax
  11173. tmpMaxListedX
  11174.     1S2S
  11175. tmpIndexStr
  11176. tmpCurIndex
  11177. tmpMax#
  11178.     0R1S2S8S9S
  11179. tmpCurIndex
  11180. Domino
  11181. LoadAddressListByIndex
  11182. TargetNAB
  11183. tmpAddressList
  11184. tmpMaxListed
  11185. tmpIndexStr
  11186.     0R1S2S3S7S9S11S13S15S
  11187. tmpNextIndex
  11188. tmpCurIndex
  11189. tmpMax"
  11190.     0R1S2S3S5S9S10S11S
  11191. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn095.gif">
  11192. </TD><TD WIDTH="99%">Display Previous Entries</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11193. tmpCurIndex
  11194. Domino
  11195. LoadAddressListByIndex
  11196. TargetNAB
  11197. tmpAddressList
  11198. tmpMaxListed
  11199. tmpNextIndex
  11200.     1S2S3S7S9S11S13S15S
  11201. tmpNextIndex
  11202. tmpCurIndex
  11203. tmpMaxListedX
  11204.     0R1S2S3S5S9S10S14S
  11205. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn094.gif">
  11206. </TD><TD WIDTH="99%">Display Next Entries</TD></TR>
  11207. </TABLE><!-- end #1.1.1 refresh buttons --></TD></TR></TABLE><!-- end #1.1 refresh buttons spacing --><BR><!-- #1.2 copy to buttons --><TABLE WIDTH="100%"><TR><TD WIDTH="1%"><!-- #1.2.1 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11208. tmpNewList
  11209. tmpAddressList
  11210.     1S2S12S16S
  11211. tmpSendTo
  11212. tmpSendTo
  11213. tmpNewList
  11214. tmpSendTo
  11215. tmpNewList
  11216.     0R1S2S3S2E9S10S12S14S18S22S25S26S27S
  11217. tmpSearchString
  11218. tmpCurIndex
  11219. Domino
  11220. LoadAddressListByIndex
  11221. TargetNAB
  11222. tmpAddressList
  11223. tmpMaxListed
  11224. tmpCurIndex
  11225. tmpCurIndex
  11226. Domino
  11227. LoadAddressListByName
  11228. TargetNAB
  11229. tmpAddressList
  11230. tmpMaxListed
  11231. tmpSearchString
  11232.     0R3S4S6RS4E10S14S16S18S20S22S26RS4E30S34S36S38S40S42S
  11233. tmpNextIndex
  11234. tmpCurIndex
  11235. tmpMaxListedX
  11236.     0R1S2S3S5S9S10S14S
  11237. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn019.gif">
  11238. </TD><TD WIDTH="99%">Send Invitations To:</TD></TR></TABLE><!-- end #1.2.1 --></TD><TD WIDTH="99%">
  11239. tmpSendTo
  11240. dispSendTo
  11241. </TD></TR><TR VALIGN=top><TD WIDTH="1%"><!-- #1.2.2 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11242. tmpNewList
  11243. tmpAddressList
  11244.     1S2S12S16S
  11245. tmpCopyTo
  11246. tmpCopyTo
  11247. tmpNewList
  11248. tmpCopyTo
  11249. tmpNewList
  11250.     0R1S2S3S2E9S10S12S14S18S22S25S26S27S
  11251. tmpSearchString
  11252. tmpCurIndex
  11253. Domino
  11254. LoadAddressListByIndex
  11255. TargetNAB
  11256. tmpAddressList
  11257. tmpMaxListed
  11258. tmpCurIndex
  11259. tmpCurIndex
  11260. Domino
  11261. LoadAddressListByName
  11262. TargetNAB
  11263. tmpAddressList
  11264. tmpMaxListed
  11265. tmpSearchString
  11266.     0R3S4S6RS4E10S14S16S18S20S22S26RS4E30S34S36S38S40S42S
  11267. tmpNextIndex
  11268. tmpCurIndex
  11269. tmpMaxListedX
  11270.     0R1S2S3S5S9S10S14S
  11271. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn019.gif">
  11272. </TD><TD WIDTH="99%">Optional Invitees Are:</TD></TR></TABLE><!-- end #1.2.2 --></TD><TD WIDTH="99%">
  11273. tmpCopyTo
  11274. dispCopyTo
  11275. </TD></TR><TR VALIGN=top><TD WIDTH="1%"><!-- #1.2.3 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11276. </TD><TD WIDTH="99%"></TD></TR></TABLE><!-- end #1.2.3 ... spacer gif to follow -->
  11277. !!!)))111999BBBJJJRRRZZZccckkksss
  11278. ssc11
  11279. B9{1)
  11280. cR1skZ
  11281. {sc11)
  11282. {sBsk9cZ!
  11283. 11)ccR
  11284. kskZcZ
  11285. !1k)B
  11286. 99RZZ
  11287. 91kB1
  11288. RJsB9k
  11289. 1.26    0.22    Ella
  11290. </TD><TD WIDTH="99%">
  11291. </TD></TR></TABLE><!-- end #1.2 copy to buttons --></TD></TR></TABLE><!-- end #1 -->]
  11292. [<b>  </b>]Tips
  11293.     Select the target 
  11294.     Address Book
  11295.      to be searched. You may add to the list of available address books from the Preference page.
  11296.     Enter the 
  11297.     Target Name
  11298.      to search for, or just the first few letters of a name. Then click on the 
  11299.     Search for Target Name
  11300.      button to initiate the search.
  11301.     Select one or more person or group names from the 
  11302.     Address List
  11303.     . Then click on the 
  11304.     Send Invitations To
  11305.     Optional Invitees Are 
  11306.     buttons to add to the list of recipients for the current mail message.
  11307.     The 
  11308.     Maximum Entries
  11309.      control allows you to select the maximum number of entries to be displayed in the Address List.
  11310.     Use the 
  11311.     Display Previous Entries
  11312.      and the 
  11313.     Display Next Entries
  11314.      buttons to reload the Address List with the previous or next "maximum entries" worth of addresses.
  11315.     Return your selection to the current mail message by clicking on the 
  11316.     Return with address selections
  11317.      button.
  11318.     Return to the current mail message without these selections by clicking on the 
  11319.     Cancel new address selections
  11320.      button.
  11321. AbortGracefully
  11322.     1S2S
  11323. Sorry, but the Address Finder does not understand that action.
  11324. Hidden w/ HTML tag in help description field:
  11325. Domino
  11326. LoadAddressListByIndex
  11327. TargetNAB
  11328. tmpAddressList
  11329. tmpMaxListed
  11330.     4S6S8S10S12S
  11331. tmpCurIndex[<TYPE=hidden >]
  11332. tmpCurIndex
  11333. tmpMaxListedX
  11334.     2S6S7S11StmpNextIndex[<TYPE=hidden >]
  11335. tmpSendTo
  11336.     0S0E
  11337. tmpSendTo[<TYPE=hidden >]
  11338. tmpCopyTo[<TYPE=hidden >]
  11339. tmpBlindCopyTo[<TYPE=hidden >]
  11340. memounid[<TYPE=hidden >]
  11341. AddressBooks[<TYPE=hidden >]
  11342. OrigSendTo[<TYPE=hidden >]
  11343. OrigCopyTo[<TYPE=hidden >]
  11344. OrigBlindCopyTo[<TYPE=hidden >]
  11345. AbortGracefully[<TYPE=hidden >]
  11346. Edit Document
  11347. _Forward
  11348. _Remove From Folder...
  11349. Categori_zel
  11350. SSend
  11351. In Box*
  11352. ($InBox)
  11353. AbortGracefully
  11354.     1S2S
  11355. Calendar
  11356.     1S2S8S12S14S
  11357. path"
  11358. /($Calendar)?OpenView&Grid=
  11359. CalendarProfile
  11360. wCalGridType
  11361.     0R3S4S5S6S7S8S12S0
  11362. AbortGracefully
  11363.     1S2S
  11364. Meetings.
  11365. ($Meetings)
  11366. AbortGracefully
  11367.     1S2S
  11368. To DoC*
  11369. ($ToDo)
  11370. AbortGracefully
  11371.     1S2S
  11372. All Views
  11373. AbortGracefully
  11374.     1S2S
  11375. O=Lotus Notes
  11376. O=Lotus Notes
  11377. PURSAFO
  11378. |.:#U
  11379. O=Lotus Notes
  11380. CN=Lotus Notes Template Development/O=Lotus Notes
  11381. PURSAFO
  11382. Fde!f^^
  11383. $$FormPostOpenAction
  11384. $TypeIcon
  11385. ExpireDate
  11386. ReplyDate
  11387. ComposedDate
  11388. $SCRIPTOBJ_25
  11389. $TITLE
  11390. $INFO
  11391. $WINDOWTITLE
  11392. $Script
  11393. $$Script_O
  11394. $$ScriptName
  11395. $$FormScript
  11396. $$$FormScript_O
  11397. $BODY
  11398. $ACTIONS
  11399. Times New Roman
  11400. VersionOpt|
  11401.     6S7S9S14S
  11402. $VersionOpt
  11403.     0R1S2S3S
  11404. SavedOnce
  11405.     0R1S2S3S
  11406. PostedDate(
  11407.     0R1S2S3S
  11408. DeliveredDate
  11409.     0R1S2S3S
  11410. $AutoEditMode
  11411.     0R1S2S3S
  11412. MailSaveOptions
  11413.     0R1S2S3S
  11414. VersionOpt
  11415.     0R4S
  11416. Address Finder
  11417. '++LotusScript Development Environment:2:5:(Options):0:74
  11418. Option Public
  11419. '++LotusScript Development Environment:2:5:(Forward):0:1
  11420. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11421.  wAddressTask'++LotusScript Development Environment:2:5:(Options):0:66
  11422. '++LotusScript Development Environment:2:5:(Forward):0:1
  11423. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11424. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11425. Declare Sub Postmodechange(Source As Notesuidocument)
  11426. Declare Sub Postopen(Source As Notesuidocument)
  11427. Declare Sub Initialize
  11428. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11429. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11430. Private Sub BindEvents(Byval Objectname_ As String)
  11431.      Static Source As NOTESUIDOCUMENT
  11432.      Set Source = Bind(Objectname_)
  11433.      On Event Querysave From Source Call Querysave
  11434.      On Event Queryclose From Source Call Queryclose
  11435.      On Event Postmodechange From Source Call Postmodechange
  11436.      On Event Postopen From Source Call Postopen
  11437. End Sub
  11438. '++LotusScript Development Environment:2:2:Querysave:1:12
  11439. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11440.      
  11441. End Sub
  11442. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11443. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11444.      
  11445. End Sub
  11446. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  11447. Sub Postmodechange(Source As Notesuidocument)
  11448.      
  11449. End Sub
  11450. '++LotusScript Development Environment:2:2:Postopen:1:12
  11451. Sub Postopen(Source As Notesuidocument)
  11452.      
  11453. End Sub
  11454. '++LotusScript Development Environment:2:2:Initialize:1:10
  11455. Sub Initialize
  11456.      
  11457. End Sub
  11458.     Hidden:
  11459. wAddressOpen
  11460. $$QueryOpenAgent
  11461. wAddressSave
  11462. $$QuerySaveAgent
  11463. SaveOptions
  11464. Path_Info
  11465. Path_Info
  11466. Query_string
  11467. Query_string[<TYPE=hidden >]
  11468. AbortGracefully
  11469.     1S2S
  11470. [<b>   </b>]Address Finder
  11471. [<!-- #1 --><TABLE WIDTH="100%"><TR><TD WIDTH="1%"><!-- #1.0 spacer --><TABLE WIDTH="100%"><TR><TD>
  11472. Address Book:<BR>
  11473. names.nsf
  11474. TargetNAB
  11475. AddressBooks
  11476. </TD></TR></TABLE><!-- end #1.0 spacer -->
  11477. </TD><TD WIDTH="99%"><!-- #1.a spacer --><TABLE WIDTH="100%"><TR><TD WIDTH="1%">Target Name:<BR>
  11478. tmpSearchString
  11479. </TD><TD WIDTH="99%">  Maximum Entries:<BR> 
  11480. tmpMaxListed
  11481. 1050100250500
  11482. </TD></TR></TABLE><!-- end #1.a spacer --></TD></TR><TR><TD WIDTH="1%"> Address List:</TD><TD WIDTH="99%"></TD></TR><TR VALIGN=top><TD WIDTH="1%"> 
  11483. tmpAddressList
  11484. tmpAddressList
  11485. </TD><TD WIDTH="99%"><!-- #1.1 refresh buttons spacing --><TABLE WIDTH="100%"><TR VALIGN=top><TD><!-- #1.1.1 refresh buttons --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11486.     0S0E
  11487.     0S0E
  11488. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn010.gif">
  11489. </TD><TD WIDTH="99%">Return with address selections</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11490. tmpSendTo
  11491. origSendTo
  11492. tmpcopyTo
  11493. origCopyTo
  11494.     0R1S
  11495. tmpBlindCopyTo
  11496. origBlindCopyTo
  11497.     0R1S
  11498. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn011.gif">
  11499. </TD><TD WIDTH="99%">Cancel new address selections</TD></TR>
  11500. <TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11501. tmpCurIndex
  11502. Domino
  11503. LoadAddressListByName
  11504. TargetNAB
  11505. tmpAddressList
  11506. tmpMaxListed
  11507. tmpSearchString
  11508.     1S2S3S7S9S11S13S15S
  11509. tmpNextIndex
  11510. tmpCurIndex
  11511. tmpMaxListedX
  11512.     0R1S2S3S5S9S10S14S
  11513. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn023.gif">
  11514. </TD><TD WIDTH="99%">Search for Target Name</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11515. tmpMax
  11516. tmpMaxListedX
  11517.     1S2S
  11518. tmpIndexStr
  11519. tmpCurIndex
  11520. tmpMax#
  11521.     0R1S2S8S9S
  11522. tmpCurIndex
  11523. Domino
  11524. LoadAddressListByIndex
  11525. TargetNAB
  11526. tmpAddressList
  11527. tmpMaxListed
  11528. tmpIndexStr
  11529.     0R1S2S3S7S9S11S13S15S
  11530. tmpNextIndex
  11531. tmpCurIndex
  11532. tmpMax"
  11533.     0R1S2S3S5S9S10S11S
  11534. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn095.gif">
  11535. </TD><TD WIDTH="99%">Display Previous Entries</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11536. tmpCurIndex
  11537. Domino
  11538. LoadAddressListByIndex
  11539. TargetNAB
  11540. tmpAddressList
  11541. tmpMaxListed
  11542. tmpNextIndex
  11543.     1S2S3S7S9S11S13S15S
  11544. tmpNextIndex
  11545. tmpCurIndex
  11546. tmpMaxListedX
  11547.     0R1S2S3S5S9S10S14S
  11548. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn094.gif">
  11549. </TD><TD WIDTH="99%">Display Next Entries</TD></TR>
  11550. </TABLE><!-- end #1.1.1 refresh buttons --></TD></TR></TABLE><!-- end #1.1 refresh buttons spacing --><BR><!-- #1.2 copy to buttons --><TABLE WIDTH="100%"><TR><TD WIDTH="1%"><!-- #1.2.1 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11551. tmpNewList
  11552. tmpAddressList
  11553.     1S2S12S16S
  11554. tmpSendTo
  11555. tmpSendTo
  11556. tmpNewList
  11557. tmpSendTo
  11558. tmpNewList
  11559.     0R1S2S3S2E9S10S12S14S18S22S25S26S27S
  11560. tmpSearchString
  11561. tmpCurIndex
  11562. Domino
  11563. LoadAddressListByIndex
  11564. TargetNAB
  11565. tmpAddressList
  11566. tmpMaxListed
  11567. tmpCurIndex
  11568. tmpCurIndex
  11569. Domino
  11570. LoadAddressListByName
  11571. TargetNAB
  11572. tmpAddressList
  11573. tmpMaxListed
  11574. tmpSearchString
  11575.     0R3S4S6RS4E10S14S16S18S20S22S26RS4E30S34S36S38S40S42S
  11576. tmpNextIndex
  11577. tmpCurIndex
  11578. tmpMaxListedX
  11579.     0R1S2S3S5S9S10S14S
  11580. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn019.gif">
  11581. </TD><TD WIDTH="99%">Assign To:</TD></TR></TABLE><!-- end #1.2.1 --></TD><TD WIDTH="99%">
  11582. tmpSendTo
  11583. dispSendTo
  11584. </TD></TR><TR VALIGN=top><TD WIDTH="1%"><!-- #1.2.2 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11585. tmpNewList
  11586. tmpAddressList
  11587.     1S2S12S16S
  11588. tmpCopyTo
  11589. tmpCopyTo
  11590. tmpNewList
  11591. tmpCopyTo
  11592. tmpNewList
  11593.     0R1S2S3S2E9S10S12S14S18S22S25S26S27S
  11594. tmpSearchString
  11595. tmpCurIndex
  11596. Domino
  11597. LoadAddressListByIndex
  11598. TargetNAB
  11599. tmpAddressList
  11600. tmpMaxListed
  11601. tmpCurIndex
  11602. tmpCurIndex
  11603. Domino
  11604. LoadAddressListByName
  11605. TargetNAB
  11606. tmpAddressList
  11607. tmpMaxListed
  11608. tmpSearchString
  11609.     0R3S4S6RS4E10S14S16S18S20S22S26RS4E30S34S36S38S40S42S
  11610. tmpNextIndex
  11611. tmpCurIndex
  11612. tmpMaxListedX
  11613.     0R1S2S3S5S9S10S14S
  11614. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn019.gif">
  11615. </TD><TD WIDTH="99%">Copy To: </TD></TR></TABLE><!-- end #1.2.2 --></TD><TD WIDTH="99%">
  11616. tmpCopyTo
  11617. dispCopyTo
  11618. </TD></TR><TR VALIGN=top><TD WIDTH="1%"><!-- #1.2.3 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11619. </TD><TD WIDTH="99%"></TD></TR></TABLE><!-- end #1.2.3 ... spacer gif to follow -->
  11620. !!!)))111999BBBJJJRRRZZZccckkksss
  11621. ssc11
  11622. B9{1)
  11623. cR1skZ
  11624. {sc11)
  11625. {sBsk9cZ!
  11626. 11)ccR
  11627. kskZcZ
  11628. !1k)B
  11629. 99RZZ
  11630. 91kB1
  11631. RJsB9k
  11632. 1.26    0.22    Ella
  11633. </TD><TD WIDTH="99%">
  11634. </TD></TR></TABLE><!-- end #1.2 copy to buttons --></TD></TR></TABLE><!-- end #1 -->]
  11635. [<b>  </b>]Tips
  11636.     Select the target 
  11637.     Address Book
  11638.      to be searched. You may add to the list of available address books from the Preference page.
  11639.     Enter the 
  11640.     Target Name
  11641.      to search for, or just the first few letters of a name. Then click on the 
  11642.     Search for Target Name
  11643.      button to initiate the search.
  11644.     Select one or more person or group names from the 
  11645.     Address List
  11646.     . Then click on the 
  11647.     Assign To
  11648.      or 
  11649.     Copy To 
  11650.     buttons to add to the list of recipients for the current mail message.
  11651.     The 
  11652.     Maximum Entries
  11653.      control allows you to select the maximum number of entries to be displayed in the Address List.
  11654.     Use the 
  11655.     Display Previous Entries
  11656.      and the 
  11657.     Display Next Entries
  11658.      buttons to reload the Address List with the previous or next "maximum entries" worth of addresses.
  11659.     Return your selection to the current mail message by clicking on the 
  11660.     Return with address selections
  11661.      button.
  11662.     Return to the current mail message without these selections by clicking on the 
  11663.     Cancel new address selections
  11664.      button.
  11665. AbortGracefully
  11666.     1S2S
  11667. Sorry, but the Address Finder does not understand that action.
  11668. Hidden w/ HTML tag in help description field:
  11669. Domino
  11670. LoadAddressListByIndex
  11671. TargetNAB
  11672. tmpAddressList
  11673. tmpMaxListed
  11674.     4S6S8S10S12S
  11675. tmpCurIndex[<TYPE=hidden >]
  11676. tmpCurIndex
  11677. tmpMaxListedX
  11678.     2S6S7S11StmpNextIndex[<TYPE=hidden >]
  11679. tmpSendTo
  11680.     0S0E
  11681. tmpSendTo[<TYPE=hidden >]
  11682. tmpCopyTo[<TYPE=hidden >]
  11683. tmpBlindCopyTo[<TYPE=hidden >]
  11684. memounid[<TYPE=hidden >]
  11685. AddressBooks[<TYPE=hidden >]
  11686. OrigSendTo[<TYPE=hidden >]
  11687. OrigCopyTo[<TYPE=hidden >]
  11688. OrigBlindCopyTo[<TYPE=hidden >]
  11689. AbortGracefully[<TYPE=hidden >]
  11690. Edit Document
  11691. _Forward
  11692. _Remove From Folder...
  11693. Categori_zel
  11694. SSendm
  11695. In Box*
  11696. ($InBox)
  11697. AbortGracefully
  11698.     1S2S
  11699. Calendar
  11700.     1S2S8S12S14S
  11701. path"
  11702. /($Calendar)?OpenView&Grid=
  11703. CalendarProfile
  11704. wCalGridType
  11705.     0R3S4S5S6S7S8S12S0
  11706. AbortGracefully
  11707.     1S2S
  11708. Meetings.
  11709. ($Meetings)
  11710. AbortGracefully
  11711.     1S2S
  11712. To Do
  11713. ($ToDo)
  11714. AbortGracefully
  11715.     1S2S
  11716. All Views
  11717. AbortGracefully
  11718.     1S2S
  11719. O=Lotus Notes
  11720. O=Lotus Notes
  11721. PURSAFO
  11722. |.:#U
  11723. O=Lotus Notes
  11724. CN=Lotus Notes Template Development/O=Lotus Notes
  11725. PURSAFO
  11726. Fde!f^^
  11727. 5>,)p
  11728. $$FormPostOpenAction
  11729. $TypeIcon
  11730. ExpireDate
  11731. ReplyDate
  11732. ComposedDate
  11733. $SCRIPTOBJ_25
  11734. $TITLE
  11735. $INFO
  11736. $WINDOWTITLE
  11737. $Script
  11738. $$Script_O
  11739. $$ScriptName
  11740. $$FormScript
  11741. $$$FormScript_O
  11742. $BODY
  11743. $ACTIONS
  11744. Times New Roman
  11745. VersionOpt|
  11746.     6S7S9S14S
  11747. $VersionOpt
  11748.     0R1S2S3S
  11749. SavedOnce
  11750.     0R1S2S3S
  11751. PostedDate(
  11752.     0R1S2S3S
  11753. DeliveredDate
  11754.     0R1S2S3S
  11755. $AutoEditMode
  11756.     0R1S2S3S
  11757. MailSaveOptions
  11758.     0R1S2S3S
  11759. VersionOpt
  11760.     0R4S
  11761. Address Finder
  11762. '++LotusScript Development Environment:2:5:(Options):0:74
  11763. Option Public
  11764. '++LotusScript Development Environment:2:5:(Forward):0:1
  11765. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11766.  wAddress'++LotusScript Development Environment:2:5:(Options):0:66
  11767. '++LotusScript Development Environment:2:5:(Forward):0:1
  11768. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11769. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11770. Declare Sub Postmodechange(Source As Notesuidocument)
  11771. Declare Sub Postopen(Source As Notesuidocument)
  11772. Declare Sub Initialize
  11773. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11774. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11775. Private Sub BindEvents(Byval Objectname_ As String)
  11776.      Static Source As NOTESUIDOCUMENT
  11777.      Set Source = Bind(Objectname_)
  11778.      On Event Querysave From Source Call Querysave
  11779.      On Event Queryclose From Source Call Queryclose
  11780.      On Event Postmodechange From Source Call Postmodechange
  11781.      On Event Postopen From Source Call Postopen
  11782. End Sub
  11783. '++LotusScript Development Environment:2:2:Querysave:1:12
  11784. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11785.      
  11786. End Sub
  11787. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11788. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11789.      
  11790. End Sub
  11791. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  11792. Sub Postmodechange(Source As Notesuidocument)
  11793.      
  11794. End Sub
  11795. '++LotusScript Development Environment:2:2:Postopen:1:12
  11796. Sub Postopen(Source As Notesuidocument)
  11797.      
  11798. End Sub
  11799. '++LotusScript Development Environment:2:2:Initialize:1:10
  11800. Sub Initialize
  11801.      
  11802. End Sub
  11803.     Hidden:
  11804. wAddressOpen
  11805. $$QueryOpenAgent
  11806. wAddressSave
  11807. $$QuerySaveAgent
  11808. SaveOptions
  11809. Path_Info
  11810. Path_Info
  11811. Query_string
  11812. Query_string[<TYPE=hidden >]
  11813. AbortGracefully
  11814.     1S2S
  11815. [<b>   </b>]Address Finder
  11816. [<!-- #1 --><TABLE WIDTH="100%"><TR><TD WIDTH="1%"><!-- #1.0 spacer --><TABLE WIDTH="100%"><TR><TD>
  11817. Address Book:<BR>
  11818. names.nsf
  11819. TargetNAB
  11820. AddressBooks
  11821. </TD></TR></TABLE><!-- end #1.0 spacer -->
  11822. </TD><TD WIDTH="99%"><!-- #1.a spacer --><TABLE WIDTH="100%"><TR><TD WIDTH="1%">Target Name:<BR>
  11823. tmpSearchString
  11824. </TD><TD WIDTH="99%">  Maximum Entries:<BR> 
  11825. tmpMaxListed
  11826. 1050100250500
  11827. </TD></TR></TABLE><!-- end #1.a spacer --></TD></TR><TR><TD WIDTH="1%"> Address List:</TD><TD WIDTH="99%"></TD></TR><TR VALIGN=top><TD WIDTH="1%"> 
  11828. tmpAddressList
  11829. tmpAddressList
  11830. </TD><TD WIDTH="99%"><!-- #1.1 refresh buttons spacing --><TABLE WIDTH="100%"><TR VALIGN=top><TD><!-- #1.1.1 refresh buttons --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11831.     0S0E
  11832.     0S0E
  11833. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn010.gif">
  11834. </TD><TD WIDTH="99%">Return with address selections</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11835. tmpSendTo
  11836. origSendTo
  11837. tmpcopyTo
  11838. origCopyTo
  11839.     0R1S
  11840. tmpBlindCopyTo
  11841. origBlindCopyTo
  11842.     0R1S
  11843. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn011.gif">
  11844. </TD><TD WIDTH="99%">Cancel new address selections</TD></TR>
  11845. <TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11846. tmpCurIndex
  11847. Domino
  11848. LoadAddressListByName
  11849. TargetNAB
  11850. tmpAddressList
  11851. tmpMaxListed
  11852. tmpSearchString
  11853.     1S2S3S7S9S11S13S15S
  11854. tmpNextIndex
  11855. tmpCurIndex
  11856. tmpMaxListedX
  11857.     0R1S2S3S5S9S10S14S
  11858. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn023.gif">
  11859. </TD><TD WIDTH="99%">Search for Target Name</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11860. tmpMax
  11861. tmpMaxListedX
  11862.     1S2S
  11863. tmpIndexStr
  11864. tmpCurIndex
  11865. tmpMax#
  11866.     0R1S2S8S9S
  11867. tmpCurIndex
  11868. Domino
  11869. LoadAddressListByIndex
  11870. TargetNAB
  11871. tmpAddressList
  11872. tmpMaxListed
  11873. tmpIndexStr
  11874.     0R1S2S3S7S9S11S13S15S
  11875. tmpNextIndex
  11876. tmpCurIndex
  11877. tmpMax"
  11878.     0R1S2S3S5S9S10S11S
  11879. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn095.gif">
  11880. </TD><TD WIDTH="99%">Display Previous Entries</TD></TR><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11881. tmpCurIndex
  11882. Domino
  11883. LoadAddressListByIndex
  11884. TargetNAB
  11885. tmpAddressList
  11886. tmpMaxListed
  11887. tmpNextIndex
  11888.     1S2S3S7S9S11S13S15S
  11889. tmpNextIndex
  11890. tmpCurIndex
  11891. tmpMaxListedX
  11892.     0R1S2S3S5S9S10S14S
  11893. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn094.gif">
  11894. </TD><TD WIDTH="99%">Display Next Entries</TD></TR>
  11895. </TABLE><!-- end #1.1.1 refresh buttons --></TD></TR></TABLE><!-- end #1.1 refresh buttons spacing --><BR><!-- #1.2 copy to buttons --><TABLE WIDTH="100%"><TR><TD WIDTH="1%"><!-- #1.2.1 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11896. tmpNewList
  11897. tmpAddressList
  11898.     1S2S12S16S
  11899. tmpSendTo
  11900. tmpSendTo
  11901. tmpNewList
  11902. tmpSendTo
  11903. tmpNewList
  11904.     0R1S2S3S2E9S10S12S14S18S22S25S26S27S
  11905. tmpSearchString
  11906. tmpCurIndex
  11907. Domino
  11908. LoadAddressListByIndex
  11909. TargetNAB
  11910. tmpAddressList
  11911. tmpMaxListed
  11912. tmpCurIndex
  11913. tmpCurIndex
  11914. Domino
  11915. LoadAddressListByName
  11916. TargetNAB
  11917. tmpAddressList
  11918. tmpMaxListed
  11919. tmpSearchString
  11920.     0R3S4S6RS4E10S14S16S18S20S22S26RS4E30S34S36S38S40S42S
  11921. tmpNextIndex
  11922. tmpCurIndex
  11923. tmpMaxListedX
  11924.     0R1S2S3S5S9S10S14S
  11925. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn019.gif">
  11926. </TD><TD WIDTH="99%">Send To:</TD></TR></TABLE><!-- end #1.2.1 --></TD><TD WIDTH="99%">
  11927. tmpSendTo
  11928. dispSendTo
  11929. </TD></TR><TR VALIGN=top><TD WIDTH="1%"><!-- #1.2.2 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11930. tmpNewList
  11931. tmpAddressList
  11932.     1S2S12S16S
  11933. tmpCopyTo
  11934. tmpCopyTo
  11935. tmpNewList
  11936. tmpCopyTo
  11937. tmpNewList
  11938.     0R1S2S3S2E9S10S12S14S18S22S25S26S27S
  11939. tmpSearchString
  11940. tmpCurIndex
  11941. Domino
  11942. LoadAddressListByIndex
  11943. TargetNAB
  11944. tmpAddressList
  11945. tmpMaxListed
  11946. tmpCurIndex
  11947. tmpCurIndex
  11948. Domino
  11949. LoadAddressListByName
  11950. TargetNAB
  11951. tmpAddressList
  11952. tmpMaxListed
  11953. tmpSearchString
  11954.     0R3S4S6RS4E10S14S16S18S20S22S26RS4E30S34S36S38S40S42S
  11955. tmpNextIndex
  11956. tmpCurIndex
  11957. tmpMaxListedX
  11958.     0R1S2S3S5S9S10S14S
  11959. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn019.gif">
  11960. </TD><TD WIDTH="99%">Copy To:</TD></TR></TABLE><!-- end #1.2.2 --></TD><TD WIDTH="99%">
  11961. tmpCopyTo
  11962. dispCopyTo
  11963. </TD></TR><TR VALIGN=top><TD WIDTH="1%"><!-- #1.2.3 --><TABLE WIDTH="100%"><TR VALIGN=top><TD WIDTH="1%" BGCOLOR="c0c0c0">
  11964. tmpNewList
  11965. tmpAddressList
  11966.     1S2S12S16S
  11967. tmpBlindCopyTo
  11968. tmpBlindCopyTo^
  11969. tmpNewList
  11970. tmpBlindCopyTo
  11971. tmpNewList
  11972.     0R1S2S3S2E9S10S12S14S18S22S25S26S27S
  11973. tmpSearchString
  11974. tmpCurIndex
  11975. Domino
  11976. LoadAddressListByIndex
  11977. TargetNAB
  11978. tmpAddressList
  11979. tmpMaxListed
  11980. tmpCurIndex
  11981. tmpCurIndex
  11982. Domino
  11983. LoadAddressListByName
  11984. TargetNAB
  11985. tmpAddressList
  11986. tmpMaxListed
  11987. tmpSearchString
  11988.     0R3S4S6RS4E10S14S16S18S20S22S26RS4E30S34S36S38S40S42S
  11989. tmpNextIndex
  11990. tmpCurIndex
  11991. tmpMaxListedX
  11992.     0R1S2S3S5S9S10S14S
  11993. <IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn019.gif">
  11994. </TD><TD WIDTH="99%">Blind Copy To:</TD></TR></TABLE><!-- end #1.2.3 ... spacer gif to follow -->
  11995. !!!)))111999BBBJJJRRRZZZccckkksss
  11996. ssc11
  11997. B9{1)
  11998. cR1skZ
  11999. {sc11)
  12000. {sBsk9cZ!
  12001. 11)ccR
  12002. kskZcZ
  12003. !1k)B
  12004. 99RZZ
  12005. 91kB1
  12006. RJsB9k
  12007. 1.26    0.22    Ella
  12008. </TD><TD WIDTH="99%">
  12009. tmpBlindCopyTo
  12010. dispBlindCopyTo
  12011. </TD></TR></TABLE><!-- end #1.2 copy to buttons --></TD></TR></TABLE><!-- end #1 -->]
  12012. [<b>  </b>]Tips
  12013.     Select the target 
  12014.     Address Book
  12015.      to be searched. You may add to the list of available address books from the Preference page.
  12016.     Enter the 
  12017.     Target Name
  12018.      to search for, or just the first few letters of a name. Then click on the 
  12019.     Search for Target Name
  12020.      button to initiate the search.
  12021.     Select one or more person or group names from the 
  12022.     Address List
  12023.     . Then click on the 
  12024.     Send To
  12025.     Copy To 
  12026.     Blind Copy To 
  12027.     buttons to add to the list of recipients for the current mail message.
  12028.     The 
  12029.     Maximum Entries
  12030.      control allows you to select the maximum number of entries to be 
  12031.     displayed 
  12032.     in the Address List.
  12033.     Use the 
  12034.     Display Previous Entries
  12035.      and the 
  12036.     Display Next Entries
  12037.      buttons to reload the Address List with the previous or next "maximum entries" worth of addresses.
  12038.     Return your selection to the current mail message by clicking on the 
  12039.     Return with address selections
  12040.      button.
  12041.     Return to the current mail message without these selections by clicking on the 
  12042.     Cancel new address selections
  12043.      button.
  12044. AbortGracefully
  12045.     1S2S
  12046. Sorry, but the Address Finder does not understand that action.
  12047. Hidden w/ HTML tag in help description field:
  12048. Domino
  12049. LoadAddressListByIndex
  12050. TargetNAB
  12051. tmpAddressList
  12052. tmpMaxListed
  12053.     4S6S8S10S12S
  12054. tmpCurIndex[<TYPE=hidden >]
  12055. tmpCurIndex
  12056. tmpMaxListedX
  12057.     2S6S7S11StmpNextIndex[<TYPE=hidden >]
  12058. tmpSendTo
  12059.     0S0E
  12060. tmpSendTo[<TYPE=hidden >]
  12061. tmpCopyTo[<TYPE=hidden >]
  12062. tmpBlindCopyTo[<TYPE=hidden >]
  12063. memounid[<TYPE=hidden >]
  12064. AddressBooks[<TYPE=hidden >]
  12065. OrigSendTo[<TYPE=hidden >]
  12066. OrigCopyTo[<TYPE=hidden >]
  12067. OrigBlindCopyTo[<TYPE=hidden >]
  12068. AbortGracefully[<TYPE=hidden >]
  12069. Edit Document
  12070. _Forward
  12071. _Remove From Folder...
  12072. Categori_zet
  12073. SSendt
  12074. In Box*
  12075. ($InBox)
  12076. AbortGracefully
  12077.     1S2S
  12078. Calendar
  12079.     1S2S8S12S14S
  12080. path"
  12081. /($Calendar)?OpenView&Grid=
  12082. CalendarProfile
  12083. wCalGridType
  12084.     0R3S4S5S6S7S8S12S0
  12085. AbortGracefully
  12086.     1S2S
  12087. Meetings.
  12088. ($Meetings)
  12089. AbortGracefully
  12090.     1S2S
  12091. To Do
  12092. ($ToDo)
  12093. AbortGracefully
  12094.     1S2S
  12095. All Views
  12096. AbortGracefully
  12097.     1S2S
  12098. O=Lotus Notes
  12099. O=Lotus Notes
  12100. PURSAFO
  12101. |.:#U
  12102. O=Lotus Notes
  12103. CN=Lotus Notes Template Development/O=Lotus Notes
  12104. PURSAFO
  12105. Fde!f^^
  12106. $$FormPostOpenAction
  12107. $TypeIcon
  12108. ExpireDate
  12109. ReplyDate
  12110. ComposedDate
  12111. $SCRIPTOBJ_25
  12112. $TITLE
  12113. $INFO
  12114. $WINDOWTITLE
  12115. $Script
  12116. $$Script_O
  12117. $$ScriptName
  12118. $$FormScript
  12119. $$$FormScript_O
  12120. $BODY
  12121. $ACTIONS
  12122. *** Message Successfully Received ***
  12123.  Return Receipt
  12124. Return Receipt
  12125.         Your document:
  12126. Subject
  12127. Subject
  12128.         was received by:
  12129. IntendedRecipient
  12130. IntendedRecipient
  12131.         at:
  12132. DeliveryDate
  12133.     Always Hidden:
  12134. Path_Info
  12135. Path_Info
  12136. Categori_ze
  12137. Close" 
  12138.     0S0E
  12139. _Edit Document
  12140. Send Docu_ment
  12141. _Forward
  12142. _Move to Folder...
  12143. _Remove from Folder...
  12144. Trash
  12145.     1S2S8S12S14S
  12146. /wCommand?OpenAgent&ToTrash=
  12147. &From="
  12148.     0R1S2S3S4S11S13S15S16S
  12149. Path_Info
  12150. Path_Info
  12151.     0R1S2S6S10S11S15S
  12152. view1
  12153.     0R1S2S3S10S14S18S21S
  12154. view2
  12155. view1
  12156. view1
  12157. view1
  12158.     0R1S2S3S10S14S18S21S
  12159. path"
  12160. view2
  12161.     0RR3S4S5S6S7S8S
  12162.     1S2S8S12S14S
  12163. /wFolders?OpenForm&UNID=
  12164. &View="
  12165.     0R1S2S3S4S11S13S15S16S
  12166. Path_Info
  12167. Path_Info
  12168.     0R1S2S6S10S11S15S
  12169. view1
  12170.     0R1S2S3S10S14S18S21S
  12171. view2
  12172. view1
  12173. view1
  12174. view1
  12175.     0R1S2S3S10S14S18S21S
  12176. path"
  12177. view2
  12178.     0RR3S4S5S6S7S8S
  12179. In Box*
  12180. ($Inbox)
  12181. Calendar.
  12182. ($Calendar)
  12183. Meetings.
  12184. ($Meetings)
  12185. To Doe*
  12186. ($ToDo)
  12187. All Viewsu"
  12188. O=Lotus Notes
  12189. O=Lotus Notes
  12190. PURSAFO
  12191. |.:#U
  12192. O=Lotus Notes
  12193. CN=Lotus Notes Template Development/O=Lotus Notes
  12194. PURSAFO
  12195. Fde!f^^
  12196. $TITLE
  12197. $INFO
  12198. $WINDOWTITLE
  12199. $$Script_O
  12200. $$ScriptName
  12201. DeliveryDate
  12202. $BODY
  12203. $ACTIONS
  12204. *** Message Not Delivered ***
  12205.  ReturnNonReceipt
  12206. Return Receipt Failure
  12207.     Your document:
  12208. Subject
  12209. OriginalSubject
  12210.     was not received by:
  12211. IntendedRecipient
  12212. IntendedRecipient
  12213.     because:
  12214. FailureReason
  12215. FailureReason
  12216.     Always Hidden:
  12217. Path_Info
  12218. Path_Info
  12219. Categori_ze
  12220. Close
  12221.     0S0E
  12222. Edit Documenth
  12223. Resend
  12224. Resend>
  12225.     7S12S
  12226. _Forward
  12227. _Move to Folder...
  12228. _Remove from Folder...
  12229. Trashs
  12230.     1S2S8S12S14S
  12231. /wCommand?OpenAgent&ToTrash=
  12232. &From="
  12233.     0R1S2S3S4S11S13S15S16S
  12234. Path_Info
  12235. Path_Info
  12236.     0R1S2S6S10S11S15S
  12237. view1
  12238.     0R1S2S3S10S14S18S21S
  12239. view2
  12240. view1
  12241. view1
  12242. view1
  12243.     0R1S2S3S10S14S18S21S
  12244. path"
  12245. view2
  12246.     0RR3S4S5S6S7S8S
  12247.     1S2S8S12S14S
  12248. /wFolders?OpenForm&UNID=
  12249. &View="
  12250.     0R1S2S3S4S11S13S15S16S
  12251. Path_Info
  12252. Path_Info
  12253.     0R1S2S6S10S11S15S
  12254. view1
  12255.     0R1S2S3S10S14S18S21S
  12256. view2
  12257. view1
  12258. view1
  12259. view1
  12260.     0R1S2S3S10S14S18S21S
  12261. path"
  12262. view2
  12263.     0RR3S4S5S6S7S8S
  12264. In Box*
  12265. ($Inbox)
  12266. Calendar.
  12267. ($Calendar)
  12268. Meetings.
  12269. ($Meetings)
  12270. To Dos*
  12271. ($ToDo)
  12272. All Viewsn"
  12273. O=Lotus Notes
  12274. O=Lotus Notes
  12275. PURSAFO
  12276. |.:#U
  12277. O=Lotus Notes
  12278. CN=Lotus Notes Template Development/O=Lotus Notes
  12279. PURSAFO
  12280. Fde!f^^
  12281. T(lu RCt
  12282. $TITLE
  12283. $INFO
  12284. $WINDOWTITLE
  12285. $$Script_O
  12286. $$ScriptName
  12287. $BODY
  12288. $ACTIONS
  12289. *** Message Successfully Delivered ***
  12290.  Trace Report
  12291. Trace Report
  12292.     Your trace:
  12293. Subject
  12294. Subject
  12295.     has reached:
  12296. IntendedRecipient
  12297. MailServer
  12298. DeliveryDate
  12299. Trace Information
  12300. RouteServers
  12301. RouteServers
  12302. RouteTimes
  12303. RouteTimes
  12304.     Always Hidden:
  12305. Path_Info
  12306. Path_Info
  12307. Categori_ze_
  12308. _Edit Document
  12309. Send Docu_ment
  12310. _Forward
  12311. _Move to Folder...
  12312. _Remove from Folder...
  12313. Trash
  12314.     1S2S8S12S14S
  12315. /wCommand?OpenAgent&ToTrash=
  12316. &From="
  12317.     0R1S2S3S4S11S13S15S16S
  12318. Path_Info
  12319. Path_Info
  12320.     0R1S2S6S10S11S15S
  12321. view1
  12322.     0R1S2S3S10S14S18S21S
  12323. view2
  12324. view1
  12325. view1
  12326. view1
  12327.     0R1S2S3S10S14S18S21S
  12328. path"
  12329. view2
  12330.     0RR3S4S5S6S7S8S
  12331.     1S2S8S12S14S
  12332. /wFolders?OpenForm&UNID=
  12333. &View="
  12334.     0R1S2S3S4S11S13S15S16S
  12335. Path_Info
  12336. Path_Info
  12337.     0R1S2S6S10S11S15S
  12338. view1
  12339.     0R1S2S3S10S14S18S21S
  12340. view2
  12341. view1
  12342. view1
  12343. view1
  12344.     0R1S2S3S10S14S18S21S
  12345. path"
  12346. view2
  12347.     0RR3S4S5S6S7S8S
  12348. In Box*
  12349. ($Inbox)
  12350. Calendar.
  12351. ($Calendar)
  12352. Meetings.
  12353. ($Meetings)
  12354. To Dod*
  12355. ($ToDo)
  12356. All ViewsA"
  12357. O=Lotus Notes
  12358. O=Lotus Notes
  12359. PURSAFO
  12360. |.:#U
  12361. O=Lotus Notes
  12362. CN=Lotus Notes Template Development/O=Lotus Notes
  12363. PURSAFO
  12364. Fde!f^^
  12365. $TITLE
  12366. $INFO
  12367. $WINDOWTITLE
  12368. $$Script_O
  12369. $$ScriptName
  12370. DeliveryDate
  12371. $BODY
  12372. $ACTIONS
  12373. VersionOpt|
  12374.     6S7S9S14S
  12375. $VersionOpt
  12376.     0R1S2S3S
  12377. SavedOnce
  12378.     0R1S2S3S
  12379. PostedDate(
  12380.     0R1S2S3S
  12381. DeliveredDate
  12382.     0R1S2S3S
  12383. $AutoEditMode
  12384.     0R1S2S3S
  12385. MailSaveOptions
  12386.     0R1S2S3S
  12387. VersionOpt
  12388.     0R4S
  12389. New Bookmark
  12390. Subject
  12391. Subject
  12392. Subject
  12393.     4S6S12S13S14S15S17S21S23S25S26S28S
  12394. Times New Roman
  12395. '++LotusScript Development Environment:2:5:(Options):0:74
  12396. Option Public
  12397. Use "EmailProcessing"
  12398. Use "DocumentConversions"
  12399. '++LotusScript Development Environment:2:5:(Forward):0:1
  12400. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12401.  Bookmark'++LotusScript Development Environment:2:5:(Options):0:66
  12402. '++LotusScript Development Environment:2:5:(Forward):0:1
  12403. Declare Sub Postopen(Source As Notesuidocument)
  12404. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  12405. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  12406. Declare Sub Postmodechange(Source As Notesuidocument)
  12407. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12408. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12409. Private Sub BindEvents(Byval Objectname_ As String)
  12410.      Static Source As NOTESUIDOCUMENT
  12411.      Set Source = Bind(Objectname_)
  12412.      On Event Postopen From Source Call Postopen
  12413.      On Event Querysave From Source Call Querysave
  12414.      On Event Queryclose From Source Call Queryclose
  12415.      On Event Postmodechange From Source Call Postmodechange
  12416. End Sub
  12417. '++LotusScript Development Environment:2:2:Postopen:1:12
  12418. Sub Postopen(Source As Notesuidocument)
  12419.      
  12420.      Set ws = New NotesUIWorkSpace
  12421.      Set uidoc = source
  12422.      
  12423.      Call EmailOpen
  12424.      
  12425. End Sub
  12426. '++LotusScript Development Environment:2:2:Querysave:1:12
  12427. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  12428.      
  12429.      Call EmailSave(Continue)
  12430.      
  12431. End Sub
  12432. '++LotusScript Development Environment:2:2:Queryclose:1:12
  12433. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  12434.      
  12435.      Call EmailClose(Continue)
  12436.      
  12437. End Sub
  12438. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  12439. Sub Postmodechange(Source As Notesuidocument)
  12440.      
  12441.      Call EmailModeChange
  12442.      
  12443. End Sub
  12444.     Always hidden: 
  12445. Principal
  12446. CalendarProfile
  12447. Owner
  12448.     1S2S3S7S
  12449. Principal
  12450. Principal
  12451.     0R3S4S6S8S
  12452. FromPerson memo is from.
  12453.     0S0E
  12454.     0S0E
  12455. Encrypt
  12456.     0S0E
  12457. DefaultMailSaveOptions
  12458. $KeepPrivate
  12459. $KeepPrivate
  12460. $KeepPrivate
  12461.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  12462. Path_Info
  12463. Path_Info
  12464. $HideMailHeader
  12465.     0S0E
  12466. Bookmark
  12467. ?_?__
  12468. `!b`1
  12469. 7`^///?
  12470. ?b___
  12471. `bOOO
  12472. `<b!R
  12473. Bookmark
  12474. Bookmark
  12475.     From:    
  12476. Principal
  12477. Principal
  12478. FromDomain
  12479. FromDomain
  12480. FromDomain
  12481. FromDomain
  12482.     7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
  12483. FromName
  12484. Principal
  12485. Principal
  12486.     0RR1S2S9S11S15S
  12487. FromStops
  12488.     0R1S2S6S
  12489. FromName
  12490. FromStops
  12491. FromStops
  12492. FromStops
  12493.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom
  12494.      on 
  12495. PostedDateh
  12496. PostedDate
  12497.     4S5S10S12S
  12498. tmpDisplayDateTime/date memo was created or mailed.
  12499. ReplyDate
  12500. ReplyTo
  12501. $HideMailHeader
  12502.     2S3S4S5S6S7S9S10S
  12503. Please respond
  12504. ReplyTo
  12505. ReplyTo
  12506. ReplyDate
  12507. ReplyDate
  12508.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  12509. $HideMailHeader
  12510. Principal
  12511. Principal
  12512. Principal
  12513. Principal
  12514. Principal
  12515.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  12516.     Sent by:    
  12517. FromDomain
  12518. FromDomain
  12519. FromDomain
  12520. FromDomain
  12521.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  12522. FromName
  12523.     0RR1S2S6S
  12524. FromStops
  12525.     0R1S2S6S
  12526. FromName
  12527. FromStops
  12528. FromStops
  12529. FromStops
  12530.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  12531. SendTo
  12532. CopyTo
  12533.   cc:  
  12534. CopyTo
  12535.     1S8S13S14S2E17S18S21S28S31S
  12536. MailAddress
  12537. InheritedReplyToh
  12538. InheritedReplyTo
  12539. InheritedReplyTo
  12540. InheritedFrom
  12541.     1S2S8S9S10S11S13S15S
  12542. MailAddress
  12543.     0RR 
  12544. SendTo}
  12545.     0S0E
  12546. SendToList of primary people to send memo.
  12547. CopyTo}
  12548.     0S0E
  12549. CopyToList of people to send a copy of the memo.
  12550. DeliveredDate
  12551. BlindCopyTo
  12552. (bcc: 
  12553. BlindCopyTo
  12554.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpBlindCopyTo
  12555.     bcc:
  12556. BlindCopyTo
  12557.     0S0E
  12558. BlindCopyToList of undisclosed people to send copies of memo.
  12559.     Subject:
  12560. InheritedSubject
  12561. Subject
  12562. Subject
  12563. Topic
  12564. Topic
  12565. Title
  12566. Title
  12567. BriefDescriptionh
  12568. BriefDescription
  12569.     1S2S3S5R10S12R17S19R24S26R31S33R
  12570. Bookmark
  12571. InheritedSubjecth
  12572. InheritedSubject"
  12573.     0RR2S"
  12574. Subject
  12575.     0S0E
  12576. SubjectSubject of memo.
  12577.     Document Link Information:
  12578. InheritedDBTitle
  12579.     1S2S
  12580.     Database:    
  12581. InheritedDBTitle
  12582. InheritedDBTitle
  12583. InheritedSubject
  12584.     1S2S
  12585.     Document:    
  12586. InheritedSubject
  12587. InheritedSubject
  12588. FlowStatus
  12589.     1S2S
  12590.     Workflow status:    
  12591. FlowStatus
  12592. FlowStatus
  12593. DueDateTime
  12594.     1S2S
  12595.     Due date:    
  12596. DueDateTime
  12597. DueDateTime
  12598.       You may open the document by clicking on this link.
  12599. Edit Document
  12600. ForwardK 
  12601.     0S0E
  12602. New Memo.
  12603.     0S0E
  12604. Delete 
  12605.     0S0E
  12606. _Move To Folder...
  12607. Delivery Information...Kz
  12608. DeliveryInfo
  12609. Delivery Information
  12610.     4S5S6S7S8S9S10S12S
  12611. _Forward
  12612. Reply
  12613. Reply
  12614.     0S0E
  12615. Reply With History
  12616. Reply with History
  12617. This document is truncated.
  12618.     4S8S10S13S
  12619. Reply with history
  12620. Address... 
  12621.     0S0E
  12622. PostedDateh
  12623.     5S6S7S8S
  12624. Close
  12625.     0S0E
  12626. PostedDateY
  12627.     0S0E
  12628. Save As Draft
  12629. tmpAction
  12630. SaveAsDraft
  12631.     1S2S3S
  12632. PostedDateh
  12633.     0S0E
  12634. PromptValue
  12635. DefaultMailSaveOptions
  12636. Save when sent
  12637. Do you wish to save a copy of this Memo?
  12638. DefaultMailSaveOptions
  12639.     1S2S5S6S8S14S17S
  12640. SaveOptions
  12641. PromptValue
  12642. SaveOptions
  12643. PromptValue
  12644.     0RR1S2S5S6S9S14S
  12645. tmpAction
  12646. DefaultMailSaveOptions
  12647. Mailing
  12648.     0RR1S2S3S6S7S9S11S
  12649. MailOptions
  12650.     0R1S2S3S
  12651.     0R7S9S
  12652. tmpAction
  12653. SaveOptions
  12654. SendAndFile
  12655.     0RR1S2S3S6S7S9S11S
  12656.     0R7S9S
  12657. PostedDateh
  12658.     5S6S7S8S
  12659. Send And File...
  12660.     4S11S13S19S
  12661.     0RR7S9S
  12662. tmpAction
  12663. DefaultMailSaveOptions
  12664. Mailing
  12665.     0RR1S2S3S6S7S9S11S
  12666. MailOptions
  12667.     0R1S2S3S
  12668.     0R7S9S
  12669. tmpAction
  12670. SendAndFile
  12671.     0RR1S2S3S
  12672.     0R7S9S
  12673. PostedDateh
  12674.     5S6S7S8S
  12675. Delivery Options...K
  12676. DeliveryOptions
  12677. Delivery Options
  12678.     4S8S
  12679. _ViewIcon
  12680. SenderTag
  12681. SenderTag
  12682. SenderTag
  12683. SenderTag
  12684. SenderTag
  12685. SenderTag
  12686. SenderTag
  12687. SenderTag
  12688. SenderTag
  12689. SenderTag
  12690. SenderTag
  12691.     0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
  12692. PostedDateh
  12693.     5S6S7S8S
  12694. Special Options...
  12695. ReplyDate
  12696. ReplyDate
  12697.     1S2S3S
  12698. ReplyTo
  12699. ReplyTo
  12700.     0R1S2S3S
  12701. (Advanced Options)
  12702. Special Options
  12703.     0R6S10S13S15S
  12704. tmpDisplayReplyInfo
  12705. Please respond
  12706. ReplyTo
  12707. ReplyTo
  12708. ReplyDate
  12709. ReplyDate
  12710.     0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
  12711. DueDateTime
  12712. ReplyDate
  12713.     0R1S2S3S
  12714. PostedDateh
  12715.     5S6S7S8S
  12716. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  12717. '++LotusScript Development Environment:2:5:(Forward):0:1
  12718. Declare Sub Click(Source As Button)
  12719. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12720. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12721. Private Sub BindEvents(Byval Objectname_ As String)
  12722.      Static Source As BUTTON
  12723.      Set Source = Bind(Objectname_)
  12724.      On Event Click From Source Call Click
  12725. End Sub
  12726. '++LotusScript Development Environment:2:2:Click:1:12
  12727. Sub Click(Source As Button)
  12728.      Call CreateNewDoc(NEW_MEMO)
  12729. End Sub
  12730. tmpnewdoc
  12731.     1S2S
  12732. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  12733. '++LotusScript Development Environment:2:5:(Forward):0:1
  12734. Declare Sub Click(Source As Button)
  12735. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12736. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12737. Private Sub BindEvents(Byval Objectname_ As String)
  12738.      Static Source As BUTTON
  12739.      Set Source = Bind(Objectname_)
  12740.      On Event Click From Source Call Click
  12741. End Sub
  12742. '++LotusScript Development Environment:2:2:Click:1:12
  12743. Sub Click(Source As Button)
  12744.      Call CreateNewDoc(NEW_CALENDAR)
  12745. End Sub
  12746. tmpnewdoc
  12747.     1S2S
  12748. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  12749. '++LotusScript Development Environment:2:5:(Forward):0:1
  12750. Declare Sub Click(Source As Button)
  12751. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12752. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12753. Private Sub BindEvents(Byval Objectname_ As String)
  12754.      Static Source As BUTTON
  12755.      Set Source = Bind(Objectname_)
  12756.      On Event Click From Source Call Click
  12757. End Sub
  12758. '++LotusScript Development Environment:2:2:Click:1:12
  12759. Sub Click(Source As Button)
  12760.      Call CreateNewDoc(NEW_TASK)
  12761. End Sub
  12762. tmpnewdoc
  12763.     1S2S
  12764. Copy into\New GroupK,
  12765. NewGroup
  12766.     0S0E
  12767. tmpnewdoc
  12768.     1S2S
  12769. _Remove From Folder...
  12770. Categori_zeK
  12771. SSend
  12772. Memo&
  12773. Reply
  12774. Reply
  12775. Trash
  12776.     1S2S8S12S14S
  12777. /wCommand?OpenAgent&ToTrash=
  12778. &From="
  12779.     0R1S2S3S4S11S13S15S16S
  12780. Path_Info
  12781. Path_Info
  12782.     0R1S2S6S10S11S15S
  12783. view1
  12784.     0R1S2S3S10S14S18S21S
  12785. view2
  12786. view1
  12787. view1
  12788. view1
  12789.     0R1S2S3S10S14S18S21S
  12790. path"
  12791. view2
  12792.     0RR3S4S5S6S7S8S
  12793.     1S2S8S12S14S
  12794. /wFolders?OpenForm&UNID=
  12795. &View="
  12796.     0R1S2S3S4S11S13S15S16S
  12797. Path_Info
  12798. Path_Info
  12799.     0R1S2S6S10S11S15S
  12800. view1
  12801.     0R1S2S3S10S14S18S21S
  12802. view2
  12803. view1
  12804. view1
  12805. view1
  12806.     0R1S2S3S10S14S18S21S
  12807. path"
  12808. view2
  12809.     0RR3S4S5S6S7S8S
  12810. In Box*
  12811. ($InBox)
  12812. Calendar
  12813.     1S2S8S12S14S
  12814. path"
  12815. /($Calendar)?OpenView&Grid=
  12816. CalendarProfile
  12817. wCalGridType
  12818.     0R3S4S5S6S7S8S12S
  12819. Meetings.
  12820. ($Meetings)
  12821. To Do
  12822. ($ToDo)
  12823. All Views
  12824. O=Lotus Notes
  12825. O=Lotus Notes
  12826. PURSAFO
  12827. |.:#U
  12828. O=Lotus Notes
  12829. CN=Lotus Notes Template Development/O=Lotus Notes
  12830. PURSAFO
  12831. Fde!f^^
  12832. $$FormPostOpenAction
  12833. ExpireDate
  12834. ReplyDate
  12835. $TypeIcon
  12836. ReplyNumber
  12837. ComposedDate
  12838. DueDate
  12839. $TITLE
  12840. $AUTOLAUNCH
  12841. $INFO
  12842. $WINDOWTITLE
  12843. $Script
  12844. $$Script_O
  12845. $$ScriptName
  12846. $$FormScript
  12847. $$$FormScript_O
  12848. DueDateTime
  12849. $BODY
  12850. $ACTIONS
  12851. $SCRIPTOBJ_16
  12852. $SCRIPTOBJ_17
  12853. $SCRIPTOBJ_18
  12854. DeliveredDate
  12855. PostedDate
  12856. PostedDateY
  12857. IsMailStationeryh
  12858. _ViewIcon
  12859. _ViewIcon
  12860. Importance
  12861. Importance
  12862. _ViewIcon
  12863. _ViewIcon
  12864. $TypeIcon
  12865.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  12866. SentBy
  12867. Principal
  12868. Principal
  12869.     1S2S5S6S8S10S
  12870. Attendees
  12871. RequiredAttendees
  12872. OptionalAttendees
  12873.     0R1S2S5S6S
  12874. DeliveredDate
  12875. SentBy
  12876. Attendees
  12877. Attendees
  12878. SendTo
  12879. SentBy
  12880. SendTo
  12881.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  12882.     0R1S2S8S
  12883.     0R1S2S15S16S
  12884.     0R1S2S5S6S8S14S18S
  12885.     0R1S2S5S6S8S14S18S
  12886. Person
  12887. X400FreeForm^
  12888.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  12889. Person2
  12890. Person
  12891. Person
  12892. Person
  12893. Person
  12894.     0R1S2S12S13S22S34S
  12895. Delivery Report
  12896. NonDelivery Report
  12897. Trace Report
  12898. Mail Router
  12899. Person2
  12900.     0R3S4S5S6S7S8S10S12S
  12901. DeliveredDate
  12902. DeliveredDate
  12903. PostedDate
  12904. PostedDate
  12905.     3S4S6S8S9S10S12S14S
  12906. $ContentIconh
  12907. $ContentIcon
  12908. Froma
  12909.  pager 
  12910. SendToa
  12911.  pager 
  12912. message.wav
  12913. vmsg_hdr.wav
  12914. .wavG
  12915. .tifG
  12916. $ContentIconh
  12917. $ContentIcon
  12918.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  12919. NonDelivery Report
  12920. DELIVERY FAILURE: 
  12921. FailureReason
  12922. PhoneCaller
  12923. Phone Call: 
  12924. PhoneCaller
  12925. Delivery Report
  12926. DELIVERED: 
  12927. Subject
  12928. Return Receipt
  12929. RECEIVED: 
  12930. Subject
  12931. Subject
  12932.     3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S
  12933. $27$39$13$32Subject$14$Conflict$REF
  12934. HiddenDocument
  12935. $MessageType
  12936. IsMailStationeryY
  12937.     L1S2S3S4S5S8S2E9S
  12938. DeliveredDate
  12939. PostedDate
  12940. PostedDateY
  12941. IsMailStationeryh
  12942. _ViewIcon
  12943. _ViewIcon
  12944. Importance
  12945. Importance
  12946. _ViewIcon
  12947. _ViewIcon
  12948. $TypeIcon
  12949.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  12950. $39Who
  12951. SentBy
  12952. Principal
  12953. Principal
  12954.     1S2S5S6S8S10S
  12955. Attendees
  12956. RequiredAttendees
  12957. OptionalAttendees
  12958.     0R1S2S5S6S
  12959. DeliveredDate
  12960. SentBy
  12961. Attendees
  12962. Attendees
  12963. SendTo
  12964. SentBy
  12965. SendTo
  12966.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  12967.     0R1S2S8S
  12968.     0R1S2S15S16S
  12969.     0R1S2S5S6S8S14S18S
  12970.     0R1S2S5S6S8S14S18S
  12971. Person
  12972. X400FreeForm^
  12973.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  12974. Person2
  12975. Person
  12976. Person
  12977. Person
  12978. Person
  12979.     0R1S2S12S13S22S34S
  12980. Delivery Report
  12981. NonDelivery Report
  12982. Trace Report
  12983. Mail Router
  12984. Person2
  12985.     0R3S4S5S6S7S8S10S12S
  12986. $13Date
  12987. DeliveredDate
  12988. DeliveredDate
  12989. PostedDate
  12990. PostedDate
  12991.     3S4S6S8S9S10S12S14S$32F
  12992. $ContentIconh
  12993. $ContentIcon
  12994. Froma
  12995.  pager 
  12996. SendToa
  12997.  pager 
  12998. message.wav
  12999. vmsg_hdr.wav
  13000. .wavG
  13001. .tifG
  13002. $ContentIconh
  13003. $ContentIcon
  13004.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105SSubject$14Subject~
  13005. NonDelivery Report
  13006. DELIVERY FAILURE: 
  13007. FailureReason
  13008. PhoneCaller
  13009. Phone Call: 
  13010. PhoneCaller
  13011. Delivery Report
  13012. DELIVERED: 
  13013. Subject
  13014. Return Receipt
  13015. RECEIVED: 
  13016. Subject
  13017. Subject
  13018.     3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S&
  13019. Categori_ze
  13020. New Memo.
  13021.     0S0E
  13022. Delete 
  13023.     0S0E
  13024. Move to Folder...
  13025.     0S0E
  13026. _Edit Document
  13027. _Forward
  13028. Reply
  13029. Reply
  13030.     0S0E
  13031. Reply With History@
  13032. Reply with history
  13033.     0S0E
  13034. _Move to Folder...
  13035. _Remove from Folder...
  13036. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  13037. '++LotusScript Development Environment:2:5:(Forward):0:1
  13038. Declare Sub Click(Source As Button)
  13039. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13040. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13041. Private Sub BindEvents(Byval Objectname_ As String)
  13042.      Static Source As BUTTON
  13043.      Set Source = Bind(Objectname_)
  13044.      On Event Click From Source Call Click
  13045. End Sub
  13046. '++LotusScript Development Environment:2:2:Click:1:12
  13047. Sub Click(Source As Button)
  13048.      Call CreateNewDoc(NEW_MEMO)
  13049. End Sub
  13050. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  13051. '++LotusScript Development Environment:2:5:(Forward):0:1
  13052. Declare Sub Click(Source As Button)
  13053. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13054. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13055. Private Sub BindEvents(Byval Objectname_ As String)
  13056.      Static Source As BUTTON
  13057.      Set Source = Bind(Objectname_)
  13058.      On Event Click From Source Call Click
  13059. End Sub
  13060. '++LotusScript Development Environment:2:2:Click:1:12
  13061. Sub Click(Source As Button)
  13062.      Call CreateNewDoc(NEW_CALENDAR)
  13063. End Sub
  13064. tmpnewdoc
  13065.     1S2S
  13066. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  13067. '++LotusScript Development Environment:2:5:(Forward):0:1
  13068. Declare Sub Click(Source As Button)
  13069. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13070. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13071. Private Sub BindEvents(Byval Objectname_ As String)
  13072.      Static Source As BUTTON
  13073.      Set Source = Bind(Objectname_)
  13074.      On Event Click From Source Call Click
  13075. End Sub
  13076. '++LotusScript Development Environment:2:2:Click:1:12
  13077. Sub Click(Source As Button)
  13078.      Call CreateNewDoc(NEW_TASK)
  13079. End Sub
  13080. tmpnewdoc
  13081.     1S2S
  13082. Copy into\New GroupS,
  13083. NewGroup
  13084.     0S0E
  13085. tmpnewdoc
  13086.     1S2S
  13087. '++LotusScript Development Environment:2:5:(Options):0:74
  13088. Option Public
  13089. Use "DocumentConversions"
  13090. '++LotusScript Development Environment:2:5:(Forward):0:1
  13091. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13092. O=Lotus Notes
  13093. O=Lotus Notes
  13094. PURSAFO
  13095. |.:#U
  13096. O=Lotus Notes
  13097. CN=Lotus Notes Template Development/O=Lotus Notes
  13098. PURSAFO
  13099. Fde!f^^
  13100. J!&Au(
  13101. $TITLE
  13102. $Index
  13103. $Formula
  13104. $FormulaClass
  13105. $VIEWFORMAT
  13106. $Comment
  13107. $ACTIONS
  13108. $SCRIPTOBJ_11
  13109. $SCRIPTOBJ_12
  13110. $SCRIPTOBJ_13
  13111. $ViewGlobalScript
  13112. $ViewGlobalScript_O
  13113. DeliveredDate
  13114. PostedDate
  13115. PostedDateY
  13116. IsMailStationeryh
  13117. _ViewIcon
  13118. _ViewIcon
  13119. Importance
  13120. Importance
  13121. _ViewIcon
  13122. _ViewIcon
  13123. $TypeIcon
  13124.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  13125. SentBy
  13126. Principal
  13127. Principal
  13128.     1S2S5S6S8S10S
  13129. Attendees
  13130. RequiredAttendees
  13131. OptionalAttendees
  13132.     0R1S2S5S6S
  13133. DeliveredDate
  13134. SentBy
  13135. Attendees
  13136. Attendees
  13137. SendTo
  13138. SentBy
  13139. SendTo
  13140.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  13141.     0R1S2S8S
  13142.     0R1S2S15S16S
  13143.     0R1S2S5S6S8S14S18S
  13144.     0R1S2S5S6S8S14S18S
  13145. Person
  13146. X400FreeForm^
  13147.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  13148. Person2
  13149. Person
  13150. Person
  13151. Person
  13152. Person
  13153.     0R1S2S12S13S22S34S
  13154. Delivery Report
  13155. NonDelivery Report
  13156. Trace Report
  13157. Mail Router
  13158. Person2
  13159.     0R3S4S5S6S7S8S10S12S
  13160. DeliveredDate
  13161. DeliveredDate
  13162. PostedDate
  13163. PostedDate
  13164.     3S4S6S8S9S10S12S14S
  13165. $ContentIconh
  13166. $ContentIcon
  13167. Froma
  13168.  pager 
  13169. SendToa
  13170.  pager 
  13171. message.wav
  13172. vmsg_hdr.wav
  13173. .wavG
  13174. .tifG
  13175. $ContentIconh
  13176. $ContentIcon
  13177.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  13178. NonDelivery Report
  13179. DELIVERY FAILURE: 
  13180. FailureReason
  13181. Delivery Report
  13182. DELIVERED: 
  13183. Subject
  13184. Return Receipt
  13185. RECEIVED: 
  13186. Subject
  13187. ReturnNonReceipt
  13188. NOT RECEIVED: 
  13189. Subject
  13190. Subject
  13191.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  13192. $93$104$68$92$74$Conflict
  13193. DeliveredDate
  13194. PostedDate
  13195. PostedDateY
  13196. IsMailStationeryh
  13197. _ViewIcon
  13198. _ViewIcon
  13199. Importance
  13200. Importance
  13201. _ViewIcon
  13202. _ViewIcon
  13203. $TypeIcon
  13204.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  13205. $104Who
  13206. SentBy
  13207. Principal
  13208. Principal
  13209.     1S2S5S6S8S10S
  13210. Attendees
  13211. RequiredAttendees
  13212. OptionalAttendees
  13213.     0R1S2S5S6S
  13214. DeliveredDate
  13215. SentBy
  13216. Attendees
  13217. Attendees
  13218. SendTo
  13219. SentBy
  13220. SendTo
  13221.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  13222.     0R1S2S8S
  13223.     0R1S2S15S16S
  13224.     0R1S2S5S6S8S14S18S
  13225.     0R1S2S5S6S8S14S18S
  13226. Person
  13227. X400FreeForm^
  13228.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  13229. Person2
  13230. Person
  13231. Person
  13232. Person
  13233. Person
  13234.     0R1S2S12S13S22S34S
  13235. Delivery Report
  13236. NonDelivery Report
  13237. Trace Report
  13238. Mail Router
  13239. Person2
  13240.     0R3S4S5S6S7S8S10S12S
  13241. $68Date
  13242. DeliveredDate
  13243. DeliveredDate
  13244. PostedDate
  13245. PostedDate
  13246.     3S4S6S8S9S10S12S14S$92F
  13247. $ContentIconh
  13248. $ContentIcon
  13249. Froma
  13250.  pager 
  13251. SendToa
  13252.  pager 
  13253. message.wav
  13254. vmsg_hdr.wav
  13255. .wavG
  13256. .tifG
  13257. $ContentIconh
  13258. $ContentIcon
  13259.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$74Subject
  13260. NonDelivery Report
  13261. DELIVERY FAILURE: 
  13262. FailureReason
  13263. Delivery Report
  13264. DELIVERED: 
  13265. Subject
  13266. Return Receipt
  13267. RECEIVED: 
  13268. Subject
  13269. ReturnNonReceipt
  13270. NOT RECEIVED: 
  13271. Subject
  13272. Subject
  13273.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  13274. New Memo.
  13275.     0S0E
  13276. Delete 
  13277.     0S0E
  13278. Move To Folder...r 
  13279.     0S0E
  13280. _Forward
  13281. Reply
  13282. Reply
  13283.     0S0E
  13284. Reply With History@
  13285. Reply with history
  13286.     0S0E
  13287. Categori_zer
  13288. _Edit Document
  13289. Send    
  13290. Resend
  13291. NonDelivery Report
  13292. Not a Delivery Failure Report
  13293. You cannot Resend a message unless it is a Delivery Failure Report.
  13294.     6S12S17S23S
  13295. _Move To Folder...
  13296. _Remove From Folder...
  13297. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  13298. '++LotusScript Development Environment:2:5:(Forward):0:1
  13299. Declare Sub Click(Source As Button)
  13300. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13301. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13302. Private Sub BindEvents(Byval Objectname_ As String)
  13303.      Static Source As BUTTON
  13304.      Set Source = Bind(Objectname_)
  13305.      On Event Click From Source Call Click
  13306. End Sub
  13307. '++LotusScript Development Environment:2:2:Click:1:12
  13308. Sub Click(Source As Button)
  13309.      Call CreateNewDoc(NEW_MEMO)
  13310. End Sub
  13311. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  13312. '++LotusScript Development Environment:2:5:(Forward):0:1
  13313. Declare Sub Click(Source As Button)
  13314. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13315. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13316. Private Sub BindEvents(Byval Objectname_ As String)
  13317.      Static Source As BUTTON
  13318.      Set Source = Bind(Objectname_)
  13319.      On Event Click From Source Call Click
  13320. End Sub
  13321. '++LotusScript Development Environment:2:2:Click:1:12
  13322. Sub Click(Source As Button)
  13323.      Call CreateNewDoc(NEW_CALENDAR)
  13324. End Sub
  13325. tmpnewdoc
  13326.     1S2S
  13327. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  13328. '++LotusScript Development Environment:2:5:(Forward):0:1
  13329. Declare Sub Click(Source As Button)
  13330. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13331. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13332. Private Sub BindEvents(Byval Objectname_ As String)
  13333.      Static Source As BUTTON
  13334.      Set Source = Bind(Objectname_)
  13335.      On Event Click From Source Call Click
  13336. End Sub
  13337. '++LotusScript Development Environment:2:2:Click:1:12
  13338. Sub Click(Source As Button)
  13339.      Call CreateNewDoc(NEW_TASK)
  13340. End Sub
  13341. tmpnewdoc
  13342.     1S2S
  13343. Copy into\New Group
  13344. NewGroup
  13345.     0S0E
  13346. tmpnewdoc
  13347.     1S2S
  13348. '++LotusScript Development Environment:2:5:(Options):0:74
  13349. Option Public
  13350. Use "DocumentConversions"
  13351. '++LotusScript Development Environment:2:5:(Forward):0:1
  13352. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13353. O=Lotus Notes
  13354. O=Lotus Notes
  13355. PURSAFO
  13356. |.:#U
  13357. O=Lotus Notes
  13358. CN=Lotus Notes Template Development/O=Lotus Notes
  13359. PURSAFO
  13360. Fde!f^^
  13361. $TYPE
  13362. $TABLEFORMAT
  13363. $TITLE
  13364. $Index
  13365. $Formula
  13366. $FormulaClass
  13367. $VIEWFORMAT
  13368. $Comment
  13369. $ACTIONS
  13370. $SCRIPTOBJ_12
  13371. $SCRIPTOBJ_13
  13372. $SCRIPTOBJ_14
  13373. $ViewGlobalScript
  13374. $ViewGlobalScript_O
  13375. ed$UpdatedBy$DBScript$DBScript_O$TITLE$Flags$PublicAccess$Signature$INFO$Fonts$BODY$TemplateModTime$TemplateServerName$TemplateFileName$LaunchWebDoclink$FlagsNoRefreshIconBitmapCompletedOnEndDateCalendarDate_Time___StartCalendarDate_Time___EndCalendarDatesCalendarDateRepeatDatesCalendarDateTimeEndDateTime$NoPurgeStartTimeEndTimeStartEndTimeStartDateTime$FormPublicAccessTimeRangeWebCalEntryTypeChangedReminderTimeMaxListedStartDateDuration$WINDOWTITLE$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_OFromtmpFromForm$ExpandGroups_ViewIconQuery_StringPath_InfoappTypetmpGridFormulaGridFormatDatePickerTimePickerDurationPickerViewArguments$ACTIONSViewArguments_1$SubFormsViewNameurlViewNameFavorites$$ViewBodySaveOptions$$QueryOpenAgent$$QuerySaveAgenttmpFoldertmpSelectedDocumentdispSelectedFoldertmpSelectedFoldertmpRemFromFoldertmpNewFoldertmpNewFolderOptionsdispFolderListtmpUNIDnotetmpViewNametmpCurFolderIsViewIntendedRecipienttmpCustomAddressLinksSendToCopyTodispSubjectdispBodyImportanceDeliveryReportDeliveryPriorityMailOptionsMessageString$ScriptLib$ScriptLib_OSEQUENCENUMSubjectROOMBroadcastREQUIREDATTENDEESOPTIONALATTENDEEStmpDocUNIDBodytmpAcceptedtmpCountertmpDelegatedTMPDELEGEEtmpDeclinedtmpWaitingtmpUnivitedtmpNoticeTypedispAccepteddispCounterdispDelegateddispDeclineddispWaitingdispUniviteddispResAccepteddispResDeclineddispResWaiting$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$LeftToDotmpConfirmMsgtmpCurrentOwnertmpCurrentUsertmpRSVPActiontmpOutOfInBoxtmpOutOfInBox_1NewDateNewTimeRangeReasonNewRoomStatusUpdateCommentstmpNewStarttmpNewEndDelegateAlertAssigneeAlert$$FormPostOpenActionExpireDateReplyDateComposedDateSelfAssigned$TypeIconASSIGNSTATEPrincipalSignEncryptDefaultMailSaveOptions$KeepPrivateOldSubjectSoloTaskActionReassignTaskAssignedTaskActionDueDateTimeAssignedTotmpAssignTasktmpQuery_StringdispAssignedTo$$ViewList$NoBackgroundOverrideNewDocdispAppTypeDurationMinOrgConfidentialtmpRoomtmpGridFormattmpDatetmpTimetmpDurationIsFindTimeHasFoundTimeIsAddressingIsNewDocCHAIRTMPOWNERAppointmentTypetmpDispAppTypetmpSubjecttmpBodytmpSendTo2tmpCopyTo2tmpSendTo3tmpCopyTo3tmpRoom2tmpDateOrgtmpTimeOrgtmpDurationOrgtmpBookFreeTimetmpOrgConfidentialtmpBroadcasttmpImportancetmpDeliveryPrioritytmpDeliveryReporttmpDateReftmpTimeReftmpDurationRef$$XMB_2$$XMB_3$SCRIPTOBJ_25tmpSendOptionsBlindCopyTotmpPath_Info$$XMB$LicenseePhoneCallerCompanyNamePhoneNumberFAXNumberPhoneReasonReplyNumber$AUTOLAUNCHInheritedSendToInheritedReplyToInheritedFromInheritedFromDomaintmpBackToTaskPathAndName$$ReturnSundayStart_1SundayEnd_1SundayStart_2SundayEnd_2SundayStart_3SundayEnd_3SundayStart_4SundayEnd_4SundayStart_5SundayEnd_5SundayStart_6SundayEnd_6TaskLeadTimeSlotStartTimeSlotEndTimeSlotIntervalSundayStartSundayEndMondayStartMondayEndTuesdayStartTuesdayEndWednesdayStartWednesdayEndThursdayStartThursdayEndFridayStartFridayEndSaturdayStartSaturdayEnd$SundayTimes$MondayTimes$TuesdayTimes$WednesdayTimes$ThursdayTimes$FridayTimes$SaturdayTimes$1Times$2Times$3Times$4Times$5Times$6Times$7TimesAppointmentLeadReminderLeadEventLeadAnniversaryLead$$MonStart$MonStart_O$$Timess$Timess_OTimess$$Times1s$Times1s_O$$Times1e$Times1e_O$$Times2e$Times2e_O$$Times3s$Times3s_O$$Times3e$Times3e_O$$Times4s$Times4s_O$$Times4e$Times4e_O$$Times5s$Times5s_O$$Times5e$Times5e_O$$Times6s$Times6s_O$$Times6e$Times6e_O$$Times7s$Times7s_O$$Times7e$Times7e_OTimes1sTimes1eTimes2eTimes3eTimes4sTimes4eTimes5sTimes5eTimes6sTimes6eTimes7sTimes7e$$FormAction2$$$Times1$$Times1_OOwnerDefaultMailOptEnableTrashIconAutoProcessMeetingsMeetingsPeopleDefaultDurationCalEntryTypeCalGridTypeCalEntryHideAutoRemoveFromInboxNotesNab1NotesNab2NotesNab3NotesNab4AllowBusyAccessSunday$Times1Monday$Times2Tuesday$Times3Wednesday$Times4Thursday$Times5Friday$Times6Saturday$Times7EnableNABLinksLinkName1URL1LinkName2URL2LinkName3URL3LinkName4URL4EnableFavoriteLinksIsFolder1FolderName1fURL1IsFolder2FolderName2fURL2IsFolder3FolderName3fURL3IsFolder4FolderName4fURL4IsFolder5FolderName5fURL5IsFolder6FolderName6fURL6$BusyName$AvailableDaysTargetNABtmpSearchStringtmpMaxListedtmpAddressListdispSendTodispCopyTotmpCurIndextmpNextIndextmpSendTotmpCopyTotmpBlindCopyTomemounidAddressBooksOrigSendToOrigCopyToOrigBlindCopyToAbortGracefullytesttesttest1test2test3test4dispBlindCopyTo$ACLDigestDeliveryDateDueDateInheritedDBTitleInheritedSubjectFlowStatus$SCRIPTOBJ_16$SCRIPTOBJ_17$SCRIPTOBJ_18$Index$Formula$FormulaClass$Collation$Collation1$Collation2$VIEWFORMAT$Comment$SCRIPTOBJ_11$SCRIPTOBJ_12$SCRIPTOBJ_13$ViewGlobalScript$ViewGlobalScript_O$TYPE$TABLEFORMAT$SCRIPTOBJ_14$CalendarFormat$ViewScript$ViewScript_O$FormFormula$Name$SCRIPTOBJ_7$SCRIPTOBJ_8$SCRIPTOBJ_9$SCRIPTOBJ_10$SCRIPTOBJ_6$Author$FolderObject$FolderIDTable
  13376. StartTime
  13377. CalendarDateTimeL
  13378.     1S2S
  13379. DateList
  13380. CalendarDateTimeV
  13381. EndDateTime
  13382.     0R1S2S10S11S12S13S
  13383. AppointmentType
  13384. CalendarDateTime
  13385. DateList
  13386. StartTime
  13387.     0R3S4S5S6S7S8S9S10S12S14S20S21S22S23S
  13388. AppointmentType
  13389. EndDateTime
  13390. StartDateTime
  13391.     3S4S6S8S10S11S13S14S16S
  13392. section
  13393. OrgTable
  13394.     1S2S6S
  13395. section
  13396. section
  13397. section
  13398.     0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
  13399. AppointmentType
  13400. StartDateTime
  13401. StartDateTime
  13402. StartDateTime
  13403. StartDateTime
  13404. -All Day-
  13405.     3S4S5S6S7S8S10RS4E17RS8E24S29S32RS5E35R
  13406. Subject
  13407. -No Subject-
  13408. Subject
  13409.     3S4S6S
  13410. $134$135$126$143_ViewIcon$141$Conflict
  13411. CalendarDateTimeh
  13412. $134t
  13413. StartTime
  13414. CalendarDateTimeL
  13415.     1S2S
  13416. DateList
  13417. CalendarDateTimeV
  13418. EndDateTime
  13419.     0R1S2S10S11S12S13S
  13420. AppointmentType
  13421. CalendarDateTime
  13422. DateList
  13423. StartTime
  13424.     0R3S4S5S6S7S8S9S10S12S14S20S21S22S23S$135
  13425. AppointmentType
  13426. EndDateTime
  13427. StartDateTime
  13428.     3S4S6S8S10S11S13S14S16S$126
  13429. section
  13430. OrgTable
  13431.     1S2S6S
  13432. section
  13433. section
  13434. section
  13435.     0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
  13436. $143Time
  13437. AppointmentType
  13438. StartDateTime
  13439. StartDateTime
  13440. StartDateTime
  13441. StartDateTime
  13442. -All Day-
  13443.     3S4S5S6S7S8S10RS4E17RS8E24S29S32RS5E35R_ViewIcon$141DescriptionZ
  13444. Subject
  13445. -No Subject-
  13446. Subject
  13447.     3S4S6S
  13448. _Forward
  13449. _Edit Document
  13450. New Entry
  13451. Appointment
  13452.     0S0E
  13453. Go To TodayK$
  13454.     0S0E
  13455. Two Days$
  13456. One Week$
  13457. Two Weeks
  13458. One Month
  13459. _Move to Folder...    
  13460. _Remove from Folder...
  13461. Categori_zeK
  13462. Send Docu_ment
  13463. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  13464. '++LotusScript Development Environment:2:5:(Forward):0:1
  13465. Declare Sub Click(Source As Button)
  13466. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13467. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13468. Private Sub BindEvents(Byval Objectname_ As String)
  13469.      Static Source As BUTTON
  13470.      Set Source = Bind(Objectname_)
  13471.      On Event Click From Source Call Click
  13472. End Sub
  13473. '++LotusScript Development Environment:2:2:Click:1:12
  13474. Sub Click(Source As Button)
  13475.      Call CreateNewDoc(NEW_MEMO)
  13476. End Sub
  13477. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  13478. '++LotusScript Development Environment:2:5:(Forward):0:1
  13479. Declare Sub Click(Source As Button)
  13480. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13481. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13482. Private Sub BindEvents(Byval Objectname_ As String)
  13483.      Static Source As BUTTON
  13484.      Set Source = Bind(Objectname_)
  13485.      On Event Click From Source Call Click
  13486. End Sub
  13487. '++LotusScript Development Environment:2:2:Click:1:12
  13488. Sub Click(Source As Button)
  13489.      Call CreateNewDoc(NEW_CALENDAR)
  13490. End Sub
  13491. tmpnewdoc
  13492.     1S2S
  13493. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  13494. '++LotusScript Development Environment:2:5:(Forward):0:1
  13495. Declare Sub Click(Source As Button)
  13496. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13497. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13498. Private Sub BindEvents(Byval Objectname_ As String)
  13499.      Static Source As BUTTON
  13500.      Set Source = Bind(Objectname_)
  13501.      On Event Click From Source Call Click
  13502. End Sub
  13503. '++LotusScript Development Environment:2:2:Click:1:12
  13504. Sub Click(Source As Button)
  13505.      Call CreateNewDoc(NEW_TASK)
  13506. End Sub
  13507. tmpnewdoc
  13508.     1S2S
  13509. Copy into\New GroupK,
  13510. NewGroup
  13511.     0S0E
  13512. tmpnewdoc
  13513.     1S2S
  13514. '++LotusScript Development Environment:2:5:(Options):0:74
  13515. Option Public
  13516. Use "AppointmentProcessing"
  13517. Use "RepeatProcessing"
  13518. Use "DocumentConversions"
  13519. '++LotusScript Development Environment:2:5:(Forward):0:1
  13520. Declare Sub PutTask
  13521. Declare Sub SetViewObjectVariables(source)
  13522. Declare Sub PutCalendarEntry(Action)
  13523. Declare Sub PutAppointment(Action)
  13524. '++LotusScript Development Environment:2:5:(Declarations):0:10
  13525. Dim uiview As NotesUIView
  13526. Dim startdt As NotesDateTime
  13527. Dim enddt As NotesDateTime
  13528. '++LotusScript Development Environment:2:2:PutTask:1:8
  13529. Sub PutTask
  13530.      
  13531. 'This subroutine is used both for drag/dropping and for pasting
  13532.      Dim timeitem As NotesItem
  13533.      Dim timedt As New NotesDateTime("")
  13534.      
  13535.      On Error Goto ErrorRoutine
  13536.      
  13537.      Set timeitem = note.GetFirstItem("OriginalStartDate")
  13538.      Set datedt = New NotesDateTime(uiview.CalendarDateTime)
  13539.      Set timedt = timeitem.DateTimeValue
  13540.      Set date2 = New NotesDateTime(datedt.DateOnly & " " & timedt.TimeOnly)                         
  13541. 'date1 is the original CalendarDateTime and date2 is the new one     
  13542.      TotalDiff = date2.TimeDifference(date1)
  13543. 'break the difference down to a number that fits in the integer datatype                              
  13544.      DayDiff = Fix(TotalDiff / 86400)
  13545.      SecDiff = TotalDiff Mod 86400
  13546.      MinDiff = Fix(SecDiff / 60)
  13547.      SecDiff = SecDiff Mod 60
  13548. 'If you are changing the date     
  13549.      If (date1.LSLocalTime <> date2.LSLocalTime) Then
  13550.           If note.StartDateTime(0) = "" Then
  13551.                Set note.DueDateTime = date2
  13552.                note.CalendarDateTime = note.DueDateTime
  13553.           Elseif note.DueDateTime(0) = "" Then
  13554.                Set note.StartDateTime = date2
  13555.                note.CalendarDateTime = note.StartDateTime     
  13556.           Else
  13557.                Set note.StartDateTime = date2
  13558.                note.CalendarDateTime = note.StartDateTime
  13559.                Set dateitem = New NotesDateTime(note.DueDateTime(0))
  13560.                dateitem.AdjustDay(DayDiff)
  13561.                dateitem.AdjustMinute(MinDiff)
  13562.                dateitem.AdjustSecond(SecDiff)
  13563.                Set note.DueDateTime = dateitem   
  13564.           End If
  13565.           Call MarkTempFields(note)
  13566.           Call note.Save(True, True, True)
  13567.      End If
  13568.      
  13569.      Exit Sub
  13570.      
  13571. ErrorRoutine:
  13572.      Messagebox Error & " (PutTask)"
  13573.      Exit Sub
  13574. End Sub
  13575. '++LotusScript Development Environment:2:2:SetViewObjectVariables:1:8
  13576. Sub SetViewObjectVariables(source)
  13577.      
  13578.      Set uiview = source
  13579.      Set session = New NotesSession   
  13580.      Set ws = New NotesUIWorkspace
  13581.      Set db = session.CurrentDatabase
  13582.      
  13583. End Sub
  13584. '++LotusScript Development Environment:2:2:PutCalendarEntry:1:8
  13585. Sub PutCalendarEntry(Action)
  13586.      
  13587. 'This subroutine is used both for drag/dropping and for pasting
  13588.      
  13589.      On Error Goto ErrorRoutine
  13590.      
  13591.      CheckAlarms = False
  13592.      Set documents = uiview.documents
  13593.      
  13594.      Set note = documents.GetFirstDocument
  13595.      While Not(note Is Nothing)
  13596.           note.OriginalStartDate = note.CalendarDateTime          
  13597.           Set date1 = New NotesDateTime(note.OriginalStartDate(0))          
  13598.           Select Case note.Form(0)
  13599.           Case "Task"
  13600.                PutTask          
  13601.           Case "Appointment"
  13602.                PutAppointment(Action)
  13603.           Case Else
  13604.                'we only support this for Tasks and Appointments
  13605.           End Select
  13606.           Set note = documents.GetNextDocument(note)
  13607.      Wend
  13608.      
  13609.      If CheckAlarms Then ws.CheckAlarms
  13610.      ws.ViewRefresh
  13611.      
  13612. %REM     
  13613. 'we need to de-reference these object variables, and we don't care if any of the delete's fail     
  13614.      On Error Resume Next
  13615.      Delete documents
  13616.      Delete parent     
  13617.      Delete note
  13618.      Delete notice
  13619.      Delete date1
  13620.      Delete date2
  13621. %END REM
  13622.      
  13623.      Exit Sub
  13624.      
  13625. ErrorRoutine:
  13626.      Messagebox Error & " (PutCalendarEntry)"
  13627.      Exit Sub
  13628.      
  13629. End Sub
  13630. '++LotusScript Development Environment:2:2:PutAppointment:1:8
  13631. Sub PutAppointment(Action)
  13632.      Dim timeitem As NotesItem
  13633.      Dim timedt As New NotesDateTime("")
  13634.      
  13635.      On Error Goto ErrorRoutine
  13636.      
  13637.      Set notice = New NotesDocument(db)          
  13638.      If Action = "Drop" And note.HasItem("OrgRepeat") Then Call SaveOriginalValues
  13639.      If note.HasItem("$Alarm") Then CheckAlarms = True
  13640. 'see if the document was dropped onto a date but no time, or if this is an anniverary/event          
  13641.      If (Hour(uiview.CalendarDateTime) = 0) Or (note.AppointmentType(0) = "1") Or (note.AppointmentType(0) = "2") Then
  13642. 'since this was dropped on a date with no time, keep the same time               
  13643.           Set datedt = New NotesDateTime(uiview.CalendarDateTime)
  13644.           Set timeitem = note.GetFirstItem("OriginalStartDate")
  13645.           Set timedt = timeitem.DateTimeValue             
  13646.           Set date2 = New NotesDateTime(datedt.DateOnly & " " & timedt.TimeOnly)                         
  13647.      Else
  13648.           Set date2 = New NotesDateTime(uiview.CalendarDateTime)               
  13649.      End If
  13650.      TotalDiff = date2.TimeDifference(date1)
  13651. 'break the difference down to a number that fits in the integer datatype                              
  13652.      DayDiff = Fix(TotalDiff / 86400)
  13653.      SecDiff = TotalDiff Mod 86400
  13654.      MinDiff = Fix(SecDiff / 60)
  13655.      SecDiff = SecDiff Mod 60
  13656. 'If you are changing the date     
  13657.      If (date1.LSLocalTime <> date2.LSLocalTime) Then
  13658.           If (note.Chair(0) <> Owner) Then
  13659. 'we are not the creator of this entry -> make sure the user wants to change the date/time of this meeting                    
  13660.                If (Messagebox("You are not the originator of this entry (" & note.Subject(0) & "). Are you sure you want to change the date/time?",36,"Warning") = 6) Then
  13661.                     Set note.StartDateTime = date2
  13662.                     note.StartDate = Datevalue(note.StartDateTime(0))
  13663.                     note.CalendarDateTime = note.StartDateTime
  13664.                     Set dateitem = New NotesDateTime(note.EndDateTime(0))
  13665.                     dateitem.AdjustDay(DayDiff)
  13666.                     dateitem.AdjustMinute(MinDiff)
  13667.                     dateitem.AdjustSecond(SecDiff)
  13668.                     Set note.EndDateTime = dateitem
  13669.                     If note.HasItem("$AlarmTime") Then
  13670.                          AlarmTime = note.GetItemValue("$AlarmTime")
  13671.                          Set dateitem = New NotesDateTime(AlarmTime(0))
  13672.                          dateitem.AdjustDay(DayDiff)
  13673.                          dateitem.AdjustMinute(MinDiff)
  13674.                          dateitem.AdjustSecond(SecDiff)
  13675.                          Set item = note.GetFirstItem("$AlarmTime")
  13676.                          Set item.DateTimeValue = dateitem
  13677.                     End If
  13678.                     If (note.AppointmentType(0) = "4") Then
  13679.                          note.ReminderTime = note.StartDateTime(0)
  13680.                     Else
  13681.                          Set trdr = session.CreateDateRange
  13682.                          Set startdt = New NotesDateTime(note.StartDateTime(0))
  13683.                          Set enddt = New NotesDateTime(note.EndDateTime(0))
  13684.                          Set trdr.StartDateTime = startdt
  13685.                          Set trdr.EndDateTime = enddt
  13686.                          Set note.TimeRange = trdr                   
  13687.                     End If
  13688.                     If Action = "Drop" Then
  13689.                          If note.HasItem("OrgRepeat") Then Call RepeatSave
  13690.                     Elseif note.HasItem("OrgRepeat") Then
  13691.                          note.RemoveItem("OrgRepeat")
  13692.                          note.RemoveItem("$Ref")
  13693.                          Messagebox "Pasting an instance of a repeating appointment creates a non-repeating appointment.", 64, "Paste"
  13694.                     End If
  13695.                     If CancelChange = True Then Exit Sub                         
  13696.                     Call MarkTempFields(note)
  13697.                     Call note.Save(True, True, True)                         
  13698.                End If
  13699.           Else
  13700. 'we are the originator of this meeting
  13701.                Set note.StartDateTime = date2
  13702.                Set note.StartDate = date2
  13703.                note.CalendarDateTime = note.StartDateTime
  13704.                Set dateitem = New NotesDateTime(note.EndDateTime(0))
  13705.                dateitem.AdjustDay(DayDiff)
  13706.                dateitem.AdjustMinute(MinDiff)
  13707.                dateitem.AdjustSecond(SecDiff)
  13708.                Set note.EndDateTime = dateitem
  13709.                If note.HasItem("$AlarmTime") Then
  13710.                     AlarmTime = note.GetItemValue("$AlarmTime")
  13711.                     Set dateitem = New NotesDateTime(AlarmTime(0))
  13712.                     dateitem.AdjustDay(DayDiff)
  13713.                     dateitem.AdjustMinute(MinDiff)
  13714.                     dateitem.AdjustSecond(SecDiff)
  13715.                     Set item = note.GetFirstItem("$AlarmTime")
  13716.                     Set item.DateTimeValue = dateitem
  13717.                End If
  13718.                If (note.AppointmentType(0) = "4") Then
  13719.                     note.ReminderTime = note.StartDateTime(0)
  13720.                Else
  13721.                     Set trdr = session.CreateDateRange
  13722.                     Set startdt = New NotesDateTime(note.StartDateTime(0))
  13723.                     Set enddt = New NotesDateTime(note.EndDateTime(0))
  13724.                     Set trdr.StartDateTime = date2
  13725.                     Set trdr.EndDateTime = dateitem
  13726.                     Set note.TimeRange = trdr                   
  13727.                End If
  13728. 'see if we need to reschedule the appointment               
  13729.                If (Not(note.IsResponse) And (note.HasItem("PostedDate"))) Or ((note.IsResponse) And (note.AppointmentType(0) = "3")) Then 
  13730.                     
  13731.                     If (note.IsResponse) Then
  13732.                          Set parentnote = db.GetDocumentBYUNID(note.ParentDocumentUNID)
  13733.                          Call CreateInviteeTable(parentnote)                         
  13734.                     Else
  13735.                          Call CreateInviteeTable(note)
  13736.                     End If
  13737.                     NeedsReschedule = True
  13738.                End If        
  13739.                If (NeedsReschedule) Then note.SequenceNum = note.SequenceNum(0) + 1
  13740.                If Action = "Drop" Then
  13741.                     If note.HasItem("OrgRepeat") Then Call RepeatSave
  13742.                Elseif note.HasItem("OrgRepeat") Then
  13743.                     note.RemoveItem("OrgRepeat")
  13744.                     note.RemoveItem("$Ref")
  13745.                     Messagebox "Pasting an instance of a repeating appointment creates a non-repeating appointment.", 64, "Paste"
  13746.                End If
  13747.                If CancelChange = True Then Exit Sub
  13748.                If (NeedsReschedule) Then Call RescheduleAppointment
  13749.                Call MarkTempFields(note)
  13750.                Call note.Save(True, True, True)
  13751.           End If                             
  13752.      End If
  13753.      
  13754.      Exit Sub
  13755.      
  13756. ErrorRoutine:
  13757.      Messagebox Error & " (PutAppointment)"
  13758.      Exit Sub
  13759.      
  13760. End Sub
  13761.     0    0    
  13762. ,`    Jh
  13763. '++LotusScript Development Environment:2:5:(Options):0:66
  13764. '++LotusScript Development Environment:2:5:(Forward):0:1
  13765. Declare Sub Postdragdrop(Source As Notesuiview)
  13766. Declare Sub Regiondoubleclick(Source As Notesuiview)
  13767. Declare Sub Querydragdrop(Source As Notesuiview, Continue As Variant)
  13768. Declare Sub Postpaste(Source As Notesuiview)
  13769. Declare Sub Queryopen(Source As Notesuiview, Continue As Variant)
  13770. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13771. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13772. Private Sub BindEvents(Byval Objectname_ As String)
  13773.      Static Source As NOTESUIVIEW
  13774.      Set Source = Bind(Objectname_)
  13775.      On Event Postdragdrop From Source Call Postdragdrop
  13776.      On Event Regiondoubleclick From Source Call Regiondoubleclick
  13777.      On Event Querydragdrop From Source Call Querydragdrop
  13778.      On Event Postpaste From Source Call Postpaste
  13779.      On Event Queryopen From Source Call Queryopen
  13780. End Sub
  13781. '++LotusScript Development Environment:2:2:Postdragdrop:1:12
  13782. Sub Postdragdrop(Source As Notesuiview)
  13783.      
  13784.      Call SetViewObjectVariables(source)
  13785.      Call GetCalendarOwner
  13786.      Call PutCalendarEntry("Drop")
  13787.      
  13788. End Sub
  13789. '++LotusScript Development Environment:2:2:Regiondoubleclick:1:12
  13790. Sub Regiondoubleclick(Source As Notesuiview)
  13791.      
  13792.      Set ws = New NotesUIWorkspace
  13793.      Set session = New NotesSession
  13794.      
  13795.      If source.CalendarDateTime <> "" Then Call ws.ComposeDocument("", "", "Appointment")
  13796.      
  13797. End Sub
  13798. '++LotusScript Development Environment:2:2:Querydragdrop:1:12
  13799. Sub Querydragdrop(Source As Notesuiview, Continue As Variant)
  13800.      
  13801. End Sub
  13802. '++LotusScript Development Environment:2:2:Postpaste:1:12
  13803. Sub Postpaste(Source As Notesuiview)
  13804.      
  13805.      Call SetViewObjectVariables(source)
  13806.      GetCalendarOwner
  13807.      PutCalendarEntry("Paste")
  13808.      
  13809. End Sub
  13810. '++LotusScript Development Environment:2:2:Queryopen:1:12
  13811. Sub Queryopen(Source As Notesuiview, Continue As Variant)
  13812.      
  13813. End Sub
  13814. O=Lotus Notes
  13815. O=Lotus Notes
  13816. PURSAFO
  13817. |.:#U
  13818. O=Lotus Notes
  13819. CN=Lotus Notes Template Development/O=Lotus Notes
  13820. PURSAFO
  13821. Fde!f^^
  13822. $TITLE
  13823. $PublicAccess
  13824. $Index
  13825. $Formula
  13826. $FormulaClass
  13827. $VIEWFORMAT
  13828. $CalendarFormat
  13829. $Comment
  13830. $ACTIONS
  13831. $SCRIPTOBJ_12
  13832. $SCRIPTOBJ_13
  13833. $SCRIPTOBJ_14
  13834. $ViewGlobalScript
  13835. $ViewGlobalScript_O
  13836. $ViewScript
  13837. $ViewScript_O
  13838. IsMailStationeryh
  13839. Stationery
  13840. Drafts
  13841.     7S9S
  13842. IsMailStationeryh
  13843.     7S9S
  13844. SendTo
  13845.     1S2S6S
  13846.     0R1S2S8S
  13847.     0R1S2S15S16S17S18S25S
  13848. SendTo
  13849.     0R1S2S5S6S8S12S16S20S
  13850. SendTo
  13851.     0R1S2S5S6S8S12S16S20S
  13852. Person
  13853.     0R1S2S5S6S8S10S11S12S13S14S
  13854. Person
  13855. Person
  13856. Person
  13857. Person
  13858.     0R10S11S20S32S
  13859. $ContentIconh
  13860. $ContentIcon
  13861. Froma
  13862.  pager 
  13863. SendToa
  13864.  pager 
  13865. message.wav
  13866. vmsg_hdr.wav
  13867. .wavG
  13868. .tifG
  13869. $ContentIconh
  13870. $ContentIcon
  13871.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  13872. IsMailStationeryh
  13873. MailStationeryName
  13874. Subject
  13875.     7S9S
  13876. $58$59$65$55$62$60$Conflict
  13877. PostedDate
  13878. $MessageType
  13879. ExcludeFromView
  13880.     L1S2S3S4S5S6S7S8S9S12S13S
  13881. IsMailStationeryh
  13882. Stationery
  13883. Drafts
  13884.     7S9S
  13885. IsMailStationeryh
  13886.     7S9S
  13887. $65Whol
  13888. SendTo
  13889.     1S2S6S
  13890.     0R1S2S8S
  13891.     0R1S2S15S16S17S18S25S
  13892. SendTo
  13893.     0R1S2S5S6S8S12S16S20S
  13894. SendTo
  13895.     0R1S2S5S6S8S12S16S20S
  13896. Person
  13897.     0R1S2S5S6S8S10S11S12S13S14S
  13898. Person
  13899. Person
  13900. Person
  13901. Person
  13902.     0R10S11S20S32S
  13903. $55Date
  13904. $ContentIconh
  13905. $ContentIcon
  13906. Froma
  13907.  pager 
  13908. SendToa
  13909.  pager 
  13910. message.wav
  13911. vmsg_hdr.wav
  13912. .wavG
  13913. .tifG
  13914. $ContentIconh
  13915. $ContentIcon
  13916.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Subjectb
  13917. IsMailStationeryh
  13918. MailStationeryName
  13919. Subject
  13920.     7S9S
  13921. New Memo.
  13922.     0S0E
  13923. Delete 
  13924.     0S0E
  13925. _Forward
  13926. Categori_ze
  13927. Edit Document
  13928. IsMailStationeryh
  13929.     7S9S
  13930. MailStEd
  13931. Edit Document
  13932. Which would you like to do?
  13933. Edit this Stationery
  13934. Edit this Stationery
  13935. Create a new message from this Stationery
  13936. Edit this Stationery
  13937.     0RR1S2S3S8S9S11S13S15S17S18S19S21S22S24S26S
  13938. Use Stationery
  13939. IsMailStationeryh
  13940. Not Stationery
  13941. This is a not a Stationery message.
  13942.     7S9S
  13943. Rename Stationery...
  13944. IsMailStationery
  13945. Rename Stationery
  13946. The currently selected document is a Draft.  Only Stationery documents can be renamed.
  13947.     3S4S10RS9E19RS9E
  13948. MailStationeryName
  13949. Rename Stationery
  13950. What would you like to call this Stationery message?
  13951. MailStationeryName
  13952.     0R1S2S3S7S9S11S
  13953. _Move To Folder...
  13954. _Remove From Folder...
  13955. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  13956. '++LotusScript Development Environment:2:5:(Forward):0:1
  13957. Declare Sub Click(Source As Button)
  13958. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13959. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13960. Private Sub BindEvents(Byval Objectname_ As String)
  13961.      Static Source As BUTTON
  13962.      Set Source = Bind(Objectname_)
  13963.      On Event Click From Source Call Click
  13964. End Sub
  13965. '++LotusScript Development Environment:2:2:Click:1:12
  13966. Sub Click(Source As Button)
  13967.      Call CreateNewDoc(NEW_MEMO)
  13968. End Sub
  13969. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  13970. '++LotusScript Development Environment:2:5:(Forward):0:1
  13971. Declare Sub Click(Source As Button)
  13972. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13973. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13974. Private Sub BindEvents(Byval Objectname_ As String)
  13975.      Static Source As BUTTON
  13976.      Set Source = Bind(Objectname_)
  13977.      On Event Click From Source Call Click
  13978. End Sub
  13979. '++LotusScript Development Environment:2:2:Click:1:12
  13980. Sub Click(Source As Button)
  13981.      Call CreateNewDoc(NEW_CALENDAR)
  13982. End Sub
  13983. tmpnewdoc
  13984.     1S2S
  13985. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  13986. '++LotusScript Development Environment:2:5:(Forward):0:1
  13987. Declare Sub Click(Source As Button)
  13988. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13989. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13990. Private Sub BindEvents(Byval Objectname_ As String)
  13991.      Static Source As BUTTON
  13992.      Set Source = Bind(Objectname_)
  13993.      On Event Click From Source Call Click
  13994. End Sub
  13995. '++LotusScript Development Environment:2:2:Click:1:12
  13996. Sub Click(Source As Button)
  13997.      Call CreateNewDoc(NEW_TASK)
  13998. End Sub
  13999. tmpnewdoc
  14000.     1S2S
  14001. Copy into\New Group
  14002. NewGroup
  14003.     0S0E
  14004. tmpnewdoc
  14005.     1S2S
  14006. '++LotusScript Development Environment:2:5:(Options):0:74
  14007. Option Public
  14008. Use "DocumentConversions"
  14009. '++LotusScript Development Environment:2:5:(Forward):0:1
  14010. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14011. O=Lotus Notes
  14012. O=Lotus Notes
  14013. PURSAFO
  14014. |.:#U
  14015. O=Lotus Notes
  14016. CN=Lotus Notes Template Development/O=Lotus Notes
  14017. PURSAFO
  14018. Fde!f^^
  14019. -!|@N
  14020. $TITLE
  14021. $Index
  14022. $Formula
  14023. $FormulaClass
  14024. $VIEWFORMAT
  14025. $FormFormula
  14026. $Comment
  14027. $ACTIONS
  14028. $SCRIPTOBJ_11
  14029. $SCRIPTOBJ_12
  14030. $SCRIPTOBJ_13
  14031. $ViewGlobalScript
  14032. $ViewGlobalScript_O
  14033. Strip alternatives, parentheses, and a leading dollar sign from the $Title item
  14034. FolderName1
  14035. $Title
  14036.     0R1S2S10S15S16S18S
  14037. FolderName2
  14038. FolderName1
  14039. $Title
  14040. FolderName1
  14041. FolderName1
  14042. FolderName1
  14043.     0R1S2S6S7S9S10S15S17S18S21S25S28S
  14044. FolderName2
  14045.     0S0E
  14046. Set the folder flags in addition to those that are stored
  14047. FolderFlags1
  14048. $FolderFlagsh
  14049. $FolderFlags
  14050.     0R1S2S9S11S
  14051. Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
  14052.     0R1S
  14053. FolderFlags1
  14054. $Name
  14055. $Name
  14056.     0R1S2S8S10S11S13S19S21S22S24S26S29S
  14057. $106$103$107$Conflict
  14058. Select all folders, except shared-on-first-use folders
  14059. $Flags
  14060. $Flags
  14061.     0RL1S5S7S8S13S
  14062. $106Folder Name
  14063. Strip alternatives, parentheses, and a leading dollar sign from the $Title item
  14064. FolderName1
  14065. $Title
  14066.     0R1S2S10S15S16S18S
  14067. FolderName2
  14068. FolderName1
  14069. $Title
  14070. FolderName1
  14071. FolderName1
  14072. FolderName1
  14073.     0R1S2S6S7S9S10S15S17S18S21S25S28S
  14074. FolderName2
  14075. $103Folder UNID
  14076.     0S0E
  14077. $107Folder Flags
  14078. Set the folder flags in addition to those that are stored
  14079. FolderFlags1
  14080. $FolderFlagsh
  14081. $FolderFlags
  14082.     0R1S2S9S11S
  14083. Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
  14084.     0R1S
  14085. FolderFlags1
  14086. $Name
  14087. $Name
  14088.     0R1S2S8S10S11S13S19S21S22S24S26S29S&
  14089. New Memo.
  14090.     0S0E
  14091. Delete 
  14092.     0S0E
  14093. Move To Folder...
  14094.     0S0E
  14095. _Forward
  14096. Reply
  14097. Reply
  14098.     0S0E
  14099. Reply With History@
  14100. Reply with history
  14101.     0S0E
  14102. Categori_ze
  14103. _Edit Document
  14104. Send    
  14105. Resend
  14106. NonDelivery Report
  14107. Not a Delivery Failure Report
  14108. You cannot Resend a message unless it is a Delivery Failure Report.
  14109.     6S12S17S23S
  14110. Convert To Task
  14111. ConvertToTask
  14112. _Move To Folder...
  14113. _Remove From Folder...
  14114. O=Lotus Notes
  14115. O=Lotus Notes
  14116. PURSAFO
  14117. |.:#U
  14118. O=Lotus Notes
  14119. CN=Lotus Notes Template Development/O=Lotus Notes
  14120. PURSAFO
  14121. Fde!f^^
  14122. $Name
  14123. $TITLE
  14124. $Index
  14125. $Formula
  14126. $VIEWFORMAT
  14127. $Comment
  14128. $ACTIONS
  14129. $FormulaClass
  14130. Appointment
  14131. _ViewIcon
  14132. _ViewIcon
  14133.     3S4S6S8S13S15S
  14134. Principal
  14135. Principal
  14136.     1S2S
  14137. OrgRepeat
  14138. Notice
  14139. Subject
  14140. Subject
  14141. StartDateTime
  14142. D0S2V
  14143. PostedDateh
  14144. NoticeType
  14145.  can meet at the suggested time
  14146. NoticeType
  14147.  would like to propose a change
  14148. NoticeType
  14149.  will not be attending"
  14150. NoticeType
  14151.  has asked someone else to attend instead
  14152. From 
  14153. Subject
  14154. Subject
  14155.     0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
  14156. $119$122StartDateTimeSubject$Conflict$REF
  14157. Appointment
  14158. Notice
  14159.     L1S2S3S6S7S
  14160.  $119
  14161. Appointment
  14162. _ViewIcon
  14163. _ViewIcon
  14164.     3S4S6S8S13S15S
  14165. $122x
  14166. Principal
  14167. Principal
  14168.     1S2S
  14169. OrgRepeat
  14170. Notice
  14171. Subject
  14172. Subject
  14173. StartDateTime
  14174. D0S2V
  14175. PostedDateh
  14176. NoticeType
  14177.  can meet at the suggested time
  14178. NoticeType
  14179.  would like to propose a change
  14180. NoticeType
  14181.  will not be attending"
  14182. NoticeType
  14183.  has asked someone else to attend instead
  14184. From 
  14185. Subject
  14186. Subject
  14187.     0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
  14188. StartDateTimeMeeting TimeSubjectSubject&
  14189. _Forward
  14190. _Edit Document
  14191. New Entry
  14192. Appointment
  14193.     0S0E
  14194. _Move to Folder...
  14195. _Remove from Folder...
  14196. Categori_zeK
  14197. Send Docu_ment
  14198. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  14199. '++LotusScript Development Environment:2:5:(Forward):0:1
  14200. Declare Sub Click(Source As Button)
  14201. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14202. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14203. Private Sub BindEvents(Byval Objectname_ As String)
  14204.      Static Source As BUTTON
  14205.      Set Source = Bind(Objectname_)
  14206.      On Event Click From Source Call Click
  14207. End Sub
  14208. '++LotusScript Development Environment:2:2:Click:1:12
  14209. Sub Click(Source As Button)
  14210.      Call CreateNewDoc(NEW_MEMO)
  14211. End Sub
  14212. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  14213. '++LotusScript Development Environment:2:5:(Forward):0:1
  14214. Declare Sub Click(Source As Button)
  14215. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14216. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14217. Private Sub BindEvents(Byval Objectname_ As String)
  14218.      Static Source As BUTTON
  14219.      Set Source = Bind(Objectname_)
  14220.      On Event Click From Source Call Click
  14221. End Sub
  14222. '++LotusScript Development Environment:2:2:Click:1:12
  14223. Sub Click(Source As Button)
  14224.      Call CreateNewDoc(NEW_CALENDAR)
  14225. End Sub
  14226. tmpnewdoc
  14227.     1S2S
  14228. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  14229. '++LotusScript Development Environment:2:5:(Forward):0:1
  14230. Declare Sub Click(Source As Button)
  14231. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14232. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14233. Private Sub BindEvents(Byval Objectname_ As String)
  14234.      Static Source As BUTTON
  14235.      Set Source = Bind(Objectname_)
  14236.      On Event Click From Source Call Click
  14237. End Sub
  14238. '++LotusScript Development Environment:2:2:Click:1:12
  14239. Sub Click(Source As Button)
  14240.      Call CreateNewDoc(NEW_TASK)
  14241. End Sub
  14242. tmpnewdoc
  14243.     1S2S
  14244. Copy into\New GroupK,
  14245. NewGroup
  14246.     0S0E
  14247. tmpnewdoc
  14248.     1S2S
  14249. '++LotusScript Development Environment:2:5:(Options):0:74
  14250. Option Public
  14251. Use "DocumentConversions"
  14252. '++LotusScript Development Environment:2:5:(Forward):0:1
  14253. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14254. O=Lotus Notes
  14255. O=Lotus Notes
  14256. PURSAFO
  14257. |.:#U
  14258. O=Lotus Notes
  14259. CN=Lotus Notes Template Development/O=Lotus Notes
  14260. PURSAFO
  14261. Fde!f^^
  14262. $TITLE
  14263. $PublicAccess
  14264. $Index
  14265. $Formula
  14266. $FormulaClass
  14267. $VIEWFORMAT
  14268. $Comment
  14269. $ACTIONS
  14270. $SCRIPTOBJ_7
  14271. $SCRIPTOBJ_8
  14272. $SCRIPTOBJ_9
  14273. $ViewGlobalScript
  14274. $ViewGlobalScript_O
  14275. ($POP3)@
  14276. $RFC822MessageSize
  14277.     1S2S3S
  14278. $RFC822MessageSize
  14279. $POP3ExportSize
  14280.     1S2S3S
  14281. $POP3ExportSize
  14282. DeliveredDate$32$30$Conflict
  14283. DeliveredDate
  14284.     1S2S3S
  14285. DeliveredDate
  14286.     0RL1S2S3S1
  14287. DeliveredDate
  14288. DeliveredDateDelivered Date$32$RFC822MessageSize`
  14289. $RFC822MessageSize
  14290.     1S2S3S
  14291. $RFC822MessageSize
  14292. $30$POP3ExportSize\
  14293. $POP3ExportSize
  14294.     1S2S3S
  14295. $POP3ExportSize
  14296. 553Courier NewY
  14297. CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris######################
  14298. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($Sent)1
  14299. $82$62
  14300. CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  14301. ##########################################################
  14302. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($ToDo)|Tasks1D
  14303. $172$176$186DueDateTime$182#
  14304. $182DueDateTimeY
  14305. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  14306. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM100)/P=240B
  14307. DeliveredDate
  14308. DeliveredDate
  14309. PostedDate
  14310. PostedDatei
  14311. FromDomainh
  14312. FromDomain"
  14313. DeliveryPriority
  14314. DeliveryPriority
  14315. MessageType
  14316. MessageType
  14317. Delivery Report
  14318. VIM_DLR
  14319. NonDelivery Report
  14320. VIM_NDLR
  14321. Return Receipt
  14322. VIM_RTRC
  14323. VIM_MAILJ    
  14324. Subject
  14325. $53$47$48$50$51$52$Conflict
  14326. $MessageType
  14327.     L1S1$
  14328. $53$47$48
  14329. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris############################
  14330. CN=Ryan Jansen/O=IrisCN=user1 test/O=C&SCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesAppointmentResponsess34Q1###############################################
  14331. ##########################################################
  14332. '++LotusScript Development Environment:2:5:(Options):0:74
  14333. Option Public
  14334. '++LotusScript Development Environment:2:5:(Forward):0:1
  14335. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14336. O=Lotus Notes
  14337. O=Lotus Notes
  14338. PURSAFO
  14339. |.:#U
  14340. O=Lotus Notes
  14341. CN=Lotus Notes Template Development/O=Lotus Notes
  14342. PURSAFO
  14343. Fde!f^^
  14344. 7~ 9my4
  14345. $TITLE
  14346. $Index
  14347. $Formula
  14348. $FormulaClass
  14349. $VIEWFORMAT
  14350. $Comment
  14351. $ViewGlobalScript
  14352. $ViewGlobalScript_O
  14353. _Forward
  14354. Categori_zeK
  14355. Edit Message
  14356. _Move to Folder...
  14357. _Remove from Folder...
  14358. O=Lotus Notes
  14359. O=Lotus Notes
  14360. PURSAFO
  14361. |.:#U
  14362. O=Lotus Notes
  14363. CN=Lotus Notes Template Development/O=Lotus Notes
  14364. PURSAFO
  14365. Fde!f^^
  14366. $TITLE
  14367. $Index
  14368. $Formula
  14369. $FormulaClass
  14370. $VIEWFORMAT
  14371. $Comment
  14372. $ACTIONS
  14373. DeliveredDate
  14374. PostedDate
  14375. PostedDateY
  14376. Importance
  14377.     6S11S12S17S19S31S
  14378. SentBy
  14379. Principal
  14380. Principal
  14381.     1S2S5S6S8S10S
  14382. Attendees
  14383. RequiredAttendees
  14384. OptionalAttendees
  14385.     0R1S2S5S6S
  14386. DeliveredDate
  14387. SentBy
  14388. Attendees
  14389. Attendees
  14390. SendTo
  14391. SentBy
  14392. SendTo
  14393.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  14394.     0R1S2S8S
  14395.     0R1S2S15S16S
  14396.     0R1S2S5S6S8S14S18S
  14397.     0R1S2S5S6S8S14S18S
  14398. Person
  14399. X400FreeForm^
  14400.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  14401. Person2
  14402. Person
  14403. Person
  14404. Person
  14405. Person
  14406.     0R1S2S12S13S22S34S
  14407. Delivery Report
  14408. NonDelivery Report
  14409. Trace Report
  14410. Mail Router
  14411. Person2
  14412.     0R3S4S5S6S7S8S10S12S
  14413. DeliveredDate
  14414. DeliveredDate
  14415. PostedDate
  14416. PostedDate
  14417.     3S4S6S8S9S10S12S14S
  14418. $ContentIconh
  14419. $ContentIcon
  14420. Froma
  14421.  pager 
  14422. SendToa
  14423.  pager 
  14424. message.wav
  14425. vmsg_hdr.wav
  14426. .wavG
  14427. .tifG
  14428. $ContentIconh
  14429. $ContentIcon
  14430.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  14431. NonDelivery Report
  14432. DELIVERY FAILURE: 
  14433. FailureReason
  14434. Delivery Report
  14435. DELIVERED: 
  14436. Subject
  14437. Return Receipt
  14438. RECEIVED: 
  14439. Subject
  14440. ReturnNonReceipt
  14441. NOT RECEIVED: 
  14442. Subject
  14443. Subject
  14444.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  14445. $71$82$62$75$65$Conflict
  14446. DeliveredDate
  14447. PostedDate
  14448.     L1S4S5S
  14449. DeliveredDate
  14450. PostedDate
  14451. PostedDateY
  14452. Importance
  14453.     6S11S12S17S19S31S$82Who
  14454. SentBy
  14455. Principal
  14456. Principal
  14457.     1S2S5S6S8S10S
  14458. Attendees
  14459. RequiredAttendees
  14460. OptionalAttendees
  14461.     0R1S2S5S6S
  14462. DeliveredDate
  14463. SentBy
  14464. Attendees
  14465. Attendees
  14466. SendTo
  14467. SentBy
  14468. SendTo
  14469.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  14470.     0R1S2S8S
  14471.     0R1S2S15S16S
  14472.     0R1S2S5S6S8S14S18S
  14473.     0R1S2S5S6S8S14S18S
  14474. Person
  14475. X400FreeForm^
  14476.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  14477. Person2
  14478. Person
  14479. Person
  14480. Person
  14481. Person
  14482.     0R1S2S12S13S22S34S
  14483. Delivery Report
  14484. NonDelivery Report
  14485. Trace Report
  14486. Mail Router
  14487. Person2
  14488.     0R3S4S5S6S7S8S10S12S
  14489. $62Date
  14490. DeliveredDate
  14491. DeliveredDate
  14492. PostedDate
  14493. PostedDate
  14494.     3S4S6S8S9S10S12S14S$75F
  14495. $ContentIconh
  14496. $ContentIcon
  14497. Froma
  14498.  pager 
  14499. SendToa
  14500.  pager 
  14501. message.wav
  14502. vmsg_hdr.wav
  14503. .wavG
  14504. .tifG
  14505. $ContentIconh
  14506. $ContentIcon
  14507.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$65Subject
  14508. NonDelivery Report
  14509. DELIVERY FAILURE: 
  14510. FailureReason
  14511. Delivery Report
  14512. DELIVERED: 
  14513. Subject
  14514. Return Receipt
  14515. RECEIVED: 
  14516. Subject
  14517. ReturnNonReceipt
  14518. NOT RECEIVED: 
  14519. Subject
  14520. Subject
  14521.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  14522. New Memo.
  14523.     0S0E
  14524. Delete 
  14525.     0S0E
  14526. Move To Folder...% 
  14527.     0S0E
  14528. _Forward
  14529. Categori_ze
  14530. Edit Document1
  14531. Edit New Copy
  14532. MailStEd
  14533.     1S2S3S
  14534. _Move To Folder...    
  14535. _Remove From Folder...
  14536. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  14537. '++LotusScript Development Environment:2:5:(Forward):0:1
  14538. Declare Sub Click(Source As Button)
  14539. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14540. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14541. Private Sub BindEvents(Byval Objectname_ As String)
  14542.      Static Source As BUTTON
  14543.      Set Source = Bind(Objectname_)
  14544.      On Event Click From Source Call Click
  14545. End Sub
  14546. '++LotusScript Development Environment:2:2:Click:1:12
  14547. Sub Click(Source As Button)
  14548.      Call CreateNewDoc(NEW_MEMO)
  14549. End Sub
  14550. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  14551. '++LotusScript Development Environment:2:5:(Forward):0:1
  14552. Declare Sub Click(Source As Button)
  14553. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14554. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14555. Private Sub BindEvents(Byval Objectname_ As String)
  14556.      Static Source As BUTTON
  14557.      Set Source = Bind(Objectname_)
  14558.      On Event Click From Source Call Click
  14559. End Sub
  14560. '++LotusScript Development Environment:2:2:Click:1:12
  14561. Sub Click(Source As Button)
  14562.      Call CreateNewDoc(NEW_CALENDAR)
  14563. End Sub
  14564. tmpnewdoc
  14565.     1S2S
  14566. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  14567. '++LotusScript Development Environment:2:5:(Forward):0:1
  14568. Declare Sub Click(Source As Button)
  14569. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14570. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14571. Private Sub BindEvents(Byval Objectname_ As String)
  14572.      Static Source As BUTTON
  14573.      Set Source = Bind(Objectname_)
  14574.      On Event Click From Source Call Click
  14575. End Sub
  14576. '++LotusScript Development Environment:2:2:Click:1:12
  14577. Sub Click(Source As Button)
  14578.      Call CreateNewDoc(NEW_TASK)
  14579. End Sub
  14580. tmpnewdoc
  14581.     1S2S
  14582. Copy into\New Groupt,
  14583. NewGroup
  14584.     0S0E
  14585. tmpnewdoc
  14586.     1S2S
  14587. '++LotusScript Development Environment:2:5:(Options):0:74
  14588. Option Public
  14589. Use "DocumentConversions"
  14590. '++LotusScript Development Environment:2:5:(Forward):0:1
  14591. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14592. O=Lotus Notes
  14593. O=Lotus Notes
  14594. PURSAFO
  14595. |.:#U
  14596. O=Lotus Notes
  14597. CN=Lotus Notes Template Development/O=Lotus Notes
  14598. PURSAFO
  14599. Fde!f^^
  14600. =q'aR
  14601. $TYPE
  14602. $TABLEFORMAT
  14603. $TITLE
  14604. $Index
  14605. $Formula
  14606. $FormulaClass
  14607. $VIEWFORMAT
  14608. $Comment
  14609. $ACTIONS
  14610. $SCRIPTOBJ_10
  14611. $SCRIPTOBJ_11
  14612. $SCRIPTOBJ_12
  14613. $ViewGlobalScript
  14614. $ViewGlobalScript_O
  14615. DueStateh
  14616. DueState
  14617.     7S9S
  14618. DueState
  14619. Overdue
  14620. DueState
  14621. Future
  14622. DueState
  14623. Rejected
  14624. DueState
  14625. Complete
  14626. Current
  14627.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  14628. $186l
  14629. AssignState
  14630. Importance
  14631. Importance
  14632. Importance
  14633.     4S6R7S8S10S12R18R24R30R
  14634. SentBy
  14635. Principal
  14636. Principal
  14637.     1S2S5S6S8S10S
  14638. Subject
  14639. SentBy
  14640.  (Assigned by 
  14641. SentBy
  14642.     0R1S2E2S5S6S8S14S16S17S19S
  14643. AssignedToh
  14644. AssignedTo
  14645. AssignedTo
  14646. AssignState
  14647.  (Not Sent)
  14648. ReplyTo
  14649. ReplyDate
  14650. SendTo
  14651. SendTo
  14652. ReplyTo
  14653.     2R6S7S10S11S15S18S20S24S26S27S30S31S33S35S39R42S43S46S49S50S52S56S59S65S68S72S76S78S82S86R
  14654. $172$176$186Subject$185DueDateTime$182$Conflict$REF
  14655. DueDateTime
  14656. ExcludeFromView
  14657.     L1S3S4S5S6S7S8S9S10S12S13S16S17S
  14658.  $172N
  14659. DueStateh
  14660. DueState
  14661.     7S9S
  14662. DueState
  14663. Overdue
  14664. DueState
  14665. Future
  14666. DueState
  14667. Rejected
  14668. DueState
  14669. Complete
  14670. Current
  14671.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$186
  14672. $186l
  14673. AssignState
  14674. Importance
  14675. Importance
  14676. Importance
  14677.     4S6R7S8S10S12R18R24R30RSubject$185Task
  14678. SentBy
  14679. Principal
  14680. Principal
  14681.     1S2S5S6S8S10S
  14682. Subject
  14683. SentBy
  14684.  (Assigned by 
  14685. SentBy
  14686.     0R1S2E2S5S6S8S14S16S17S19S
  14687. DueDateTimeDue$182Assigned To
  14688. AssignedToh
  14689. AssignedTo
  14690. AssignedTo
  14691. AssignState
  14692.  (Not Sent)
  14693. ReplyTo
  14694. ReplyDate
  14695. SendTo
  14696. SendTo
  14697. ReplyTo
  14698.     2R6S7S10S11S15S18S20S24S26S27S30S31S33S35S39R42S43S46S49S50S52S56S59S65S68S72S76S78S82S86R
  14699. Categori_zeK
  14700. _Forward
  14701. _Edit Document
  14702. Send Docu_ment
  14703. New Task.
  14704.     0S0E
  14705. Delete
  14706. DueState
  14707. Task Not Completed
  14708. This Task is not yet completed, are you sure you want to delete it?
  14709.     3S4S5S6S7S8S10R21S23S29S
  14710. Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
  14711. Use "ObjectVariables"
  14712. '++LotusScript Development Environment:2:5:(Forward):0:1
  14713. Declare Sub Click(Source As Button)
  14714. Declare Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant
  14715. '++LotusScript Development Environment:2:5:(Declarations):0:10
  14716. Dim maildoc As NotesDocument
  14717. Dim dt As NotesDateTime
  14718. Dim Subject As Variant
  14719. Dim Action As Variant
  14720. Dim NewSubject As String
  14721. Dim ComposeReply As Variant
  14722. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14723. Private Sub BindEvents(Byval Objectname_ As String)
  14724.      Static Source As BUTTON
  14725.      Set Source = Bind(Objectname_)
  14726.      On Event Click From Source Call Click
  14727. End Sub
  14728. '++LotusScript Development Environment:2:2:Click:1:12
  14729. Sub Click(Source As Button)
  14730.      
  14731.      Dim sendToList As Variant
  14732.      Dim cnName As Variant
  14733.      Dim foundName As Integer
  14734.      
  14735.      ComposeReply = False
  14736.      Call InstantiateObjectVariables
  14737.      
  14738.      Set dt = New NotesDateTime("")
  14739.      dt.SetNow
  14740.      
  14741.      Set ws = New NotesUIWorkspace
  14742.      Set documents = db.UnprocessedDocuments
  14743.      
  14744.      If documents.Count = 0 Then Exit Sub
  14745.      
  14746.      For d = 1 To documents.Count
  14747.           Set note = documents.GetNthDocument(d)
  14748.           If note.HasItem(Principal) Then
  14749.                FromName = note.Principal(0)
  14750.           Else
  14751.                FromName = note.From(0)
  14752.           End If
  14753.           If note.Form(0) = "Task" Then
  14754.                oldAssignState = note.AssignState(0)
  14755.           Else
  14756.                oldAssignState = 99
  14757.           End If
  14758.           Subject = note.Subject(0)
  14759.           NewSubject = "Task:  " & Subject & " is complete as of " & dt.LSLocalTime
  14760.           Select Case oldAssignState
  14761.           Case 0, 1 '0=assigned to yourself.  1=assigned to someone else but not sent
  14762.                Gosub CompleteThisTask
  14763.           Case 8, 9 '9=complete
  14764.                Messagebox Subject & " is already closed.", 0, "Task Completion"
  14765.           Case 99 '99=this is not a Task doc
  14766.                Messagebox Subject & " is not a task document and therefore it cannot be completed.", 0, "Task Completion"
  14767.           Case Else ' make sure current user (using common name) is included in the assignTo list
  14768.                sendToList = note.SendTo
  14769.                cnName = Evaluate("@Name([CN]; @Username )")
  14770.                foundName = False
  14771.                Forall a In sendToList
  14772.                     If Instr(Lcase(a), Lcase(cnName(0))) > 0 Then
  14773.                          foundName = True
  14774.                          Exit Forall
  14775.                     End If
  14776.                End Forall
  14777.                
  14778.                If Not foundName Then
  14779.                     Messagebox "Task '" & Subject & "' is not assigned to you. You cannot complete a task that is assigned to someone else.", 0, "Task Completion"
  14780.                Else
  14781.                     Action = "Complete"
  14782.                     If SendNotification("completion", "I have completed task: ", 9, 82) = False Then Exit Sub
  14783.                     Gosub CompleteThisTask
  14784.                End If
  14785.           End Select
  14786.      Next
  14787.      
  14788.      If ComposeReply Then Call ws.ComposeDocument("", "", "Reply") 
  14789.      
  14790.      Delete note
  14791.      ws.ViewRefresh
  14792.      
  14793.      Exit Sub
  14794.      
  14795. CompleteThisTask:
  14796.      note.DueState = 9
  14797.      note.AssignState = 9
  14798.      note.CompletedDateTime = dt.LSLocalTime
  14799.      Call note.ReplaceItemValue("_ViewIcon", 82)
  14800.      Call note.save(True, True, True)
  14801.      Return
  14802.      
  14803. End Sub
  14804. '++LotusScript Development Environment:2:1:SendNotification:1:8
  14805. Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant
  14806.      
  14807. '(this was copied from the Task form)
  14808.      
  14809.      SendNotification = True
  14810.      
  14811.      FromCommonName = Evaluate("@Name([CN]; Principal)", note)
  14812.      If FromCommonName(0) = "" Then FromCommonName = Evaluate("@Name([CN]; From)", note)
  14813.      
  14814.      CommentQuery = Messagebox("A " & ReplyType & " notice will be sent to " & FromCommonName(0) &_
  14815.      ".  Do you wish to send additional comments?", MB_YESNOCANCEL, "Task " & Action)
  14816.      Select Case CommentQuery
  14817.      Case IDYES
  14818.           Call session.SetEnvironmentVar("MailStEd", Cstr(NewSubject))
  14819.           ComposeReply = True
  14820.      Case IDNO
  14821.           Set maildoc = New NotesDocument(db)
  14822.           Set rtitem = New NotesRichTextItem(maildoc, "Body")
  14823.           If note.HasItem("Principal") Then
  14824.                maildoc.SendTo = note.Principal(0) & " @ " & note.FromDomain(0)
  14825.           Else
  14826.                maildoc.SendTo = note.From(0) & " @ " & note.FromDomain(0)
  14827.           End If
  14828.           maildoc.Subject = NewSubject
  14829.           rtitem.AppendText(MessageText & Subject & ".  ")
  14830.           maildoc.Form = "Reply"
  14831.           maildoc.Principal = Owner
  14832.           maildoc.AssignState = NewState
  14833.           maildoc.DueState = NewState
  14834.           Call maildoc.AppendItemValue("_ViewIcon", ViewIcon)
  14835.           Call maildoc.Save (True, True, True)
  14836.           Call maildoc.MakeResponse(note)
  14837.           On Error Goto SendError
  14838.           Call maildoc.Send (False)
  14839.           Call maildoc.Save (True, True, True)
  14840.           ws.ViewRefresh
  14841.      Case IDCANCEL
  14842.           note.SaveOptions = "0"
  14843.           note.MailOptions = "0"
  14844.           CommentQuery = "Cancel"
  14845.           SendNotification = False
  14846.           Exit Function
  14847.      End Select
  14848.      
  14849.      note.SaveOptions = "1"          
  14850.      note.AssignState = NewState
  14851.      note.DueState = NewState
  14852.      Call note.ReplaceItemValue("_ViewIcon", ViewIcon)
  14853.      
  14854.      Exit Function
  14855.      
  14856. SendError:
  14857.      Messagebox ReplyType & " reply document could not be sent to " & FromCommonName(0) & " at this time.  Please retry", MB_OK, "Task Completion"
  14858.      SendNotification = False
  14859.      maildoc.Remove(True)
  14860.      Exit Function
  14861.      
  14862. End Function
  14863. Unmark Completed
  14864. AssignState
  14865. Unmark Completed Task
  14866. You cannot unmark a task that has not been completed.
  14867.     3S4S6S8S14S16S
  14868. DbOwner
  14869. CalendarProfile
  14870. Owner
  14871.     0R1S2S6S
  14872. 4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
  14873.     0RR1S
  14874. Owner1
  14875. DbOwner
  14876. DbOwner
  14877.     0R1S2S6S9S10S12S14S
  14878. Owner2
  14879. DbOwner
  14880. DbOwner
  14881.     0R1S2S6S9S10S12S14S
  14882. AssignedTo1
  14883. AssignedTo
  14884.     0R1S2S6S
  14885. AssignedTo2
  14886. AssignedTo
  14887.     0R1S2S6S
  14888. User1
  14889.     0R1S2S6S
  14890. User2
  14891.     0R1S2S6S
  14892. AssignedTo1
  14893. AssignedTo2
  14894. Owner1
  14895. Owner2
  14896. User1
  14897. User2
  14898. Unmark Completed Task
  14899. You can only unmark a completed task that was assigned to you.
  14900.     0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
  14901. AssignState
  14902.     0R1S2S3S
  14903. DueState
  14904.     0R1S2S3S
  14905. CompletedDateTime
  14906.     0R1S2S3S
  14907. Update Tasks.
  14908. Update Tasks
  14909. _Move to Folder...
  14910. _Remove from Folder...
  14911. Remove from To Do View`
  14912. ExcludeFromView
  14913. ExcludeFromView
  14914.     1S2S3S8S9S
  14915. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  14916. '++LotusScript Development Environment:2:5:(Forward):0:1
  14917. Declare Sub Click(Source As Button)
  14918. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14919. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14920. Private Sub BindEvents(Byval Objectname_ As String)
  14921.      Static Source As BUTTON
  14922.      Set Source = Bind(Objectname_)
  14923.      On Event Click From Source Call Click
  14924. End Sub
  14925. '++LotusScript Development Environment:2:2:Click:1:12
  14926. Sub Click(Source As Button)
  14927.      Call CreateNewDoc(NEW_MEMO)
  14928. End Sub
  14929. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  14930. '++LotusScript Development Environment:2:5:(Forward):0:1
  14931. Declare Sub Click(Source As Button)
  14932. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14933. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14934. Private Sub BindEvents(Byval Objectname_ As String)
  14935.      Static Source As BUTTON
  14936.      Set Source = Bind(Objectname_)
  14937.      On Event Click From Source Call Click
  14938. End Sub
  14939. '++LotusScript Development Environment:2:2:Click:1:12
  14940. Sub Click(Source As Button)
  14941.      Call CreateNewDoc(NEW_CALENDAR)
  14942. End Sub
  14943. tmpnewdoc
  14944.     1S2S
  14945. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  14946. '++LotusScript Development Environment:2:5:(Forward):0:1
  14947. Declare Sub Click(Source As Button)
  14948. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14949. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14950. Private Sub BindEvents(Byval Objectname_ As String)
  14951.      Static Source As BUTTON
  14952.      Set Source = Bind(Objectname_)
  14953.      On Event Click From Source Call Click
  14954. End Sub
  14955. '++LotusScript Development Environment:2:2:Click:1:12
  14956. Sub Click(Source As Button)
  14957.      Call CreateNewDoc(NEW_TASK)
  14958. End Sub
  14959. tmpnewdoc
  14960.     1S2S
  14961. Copy into\New GroupK,
  14962. NewGroup
  14963.     0S0E
  14964. tmpnewdoc
  14965.     1S2S
  14966. ^(    Kt
  14967. Q8    I$
  14968. Q8    I$
  14969.     4S5S
  14970. Principal
  14971. '++LotusScript Development Environment:2:5:(Options):0:74
  14972. Option Public
  14973. Use "DocumentConversions"
  14974. '++LotusScript Development Environment:2:5:(Forward):0:1
  14975. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14976. O=Lotus Notes
  14977. O=Lotus Notes
  14978. PURSAFO
  14979. |.:#U
  14980. O=Lotus Notes
  14981. CN=Lotus Notes Template Development/O=Lotus Notes
  14982. PURSAFO
  14983. Fde!f^^
  14984. -u%%}J_
  14985. $TYPE
  14986. $TABLEFORMAT
  14987. $TITLE
  14988. $Index
  14989. $Formula
  14990. $FormulaClass
  14991. $VIEWFORMAT
  14992. $Comment
  14993. $ACTIONS
  14994. $SCRIPTOBJ_6
  14995. $SCRIPTOBJ_12
  14996. $SCRIPTOBJ_13
  14997. $SCRIPTOBJ_14
  14998. $ViewGlobalScript
  14999. $ViewGlobalScript_O
  15000.  $53Unique ID
  15001. $47Date^
  15002. DeliveredDate
  15003. DeliveredDate
  15004. PostedDate
  15005. PostedDatei
  15006. $48From`
  15007. FromDomainh
  15008. FromDomain"
  15009. $50PriorityD
  15010. DeliveryPriority
  15011. DeliveryPriority
  15012. $51Type
  15013. MessageType
  15014. MessageType
  15015. Delivery Report
  15016. VIM_DLR
  15017. NonDelivery Report
  15018. VIM_NDLR
  15019. Return Receipt
  15020. VIM_RTRC
  15021. VIM_MAILJ    
  15022. $52Subject
  15023. Subject
  15024. Categori_ze
  15025. _Edit Document
  15026. Send Docu_ment
  15027. _Forward
  15028. O=Lotus Notes
  15029. O=Lotus Notes
  15030. PURSAFO
  15031. |.:#U
  15032. O=Lotus Notes
  15033. CN=Lotus Notes Template Development/O=Lotus Notes
  15034. PURSAFO
  15035. Fde!f^^
  15036. >j\:]?
  15037. $TYPE
  15038. $TABLEFORMAT
  15039. $Author
  15040. $TITLE
  15041. $Index
  15042. $Formula
  15043. $FormulaClass
  15044. $VIEWFORMAT
  15045. $Comment
  15046. $ACTIONS
  15047. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM23)/P=240d
  15048. PostedDateY
  15049. VIMSEL_DRAFT
  15050. DeliveredDate
  15051. DeliveredDate
  15052. PostedDate
  15053. PostedDatei
  15054. FromDomainh
  15055. FromDomain"
  15056. DeliveryPriority
  15057. DeliveryPriority
  15058. MessageType
  15059. MessageType
  15060. Delivery Report
  15061. VIM_DLR
  15062. NonDelivery Report
  15063. VIM_NDLR
  15064. Return Receipt
  15065. VIM_RTRC
  15066. VIM_MAILJ    
  15067. Subject
  15068. $53$47$48$50$51$52$Conflict
  15069. $MessageType
  15070.     L1S1$
  15071. $53$47$48
  15072. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris
  15073. ##########################################################
  15074. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM256)/P=240
  15075. Recipients
  15076. Categories
  15077. Categoriesb
  15078. (No Category)
  15079. DeliveredDate
  15080. DeliveredDate
  15081. PostedDate
  15082. PostedDatei
  15083. FromDomainh
  15084. FromDomain"
  15085. DeliveryPriority
  15086. DeliveryPriority
  15087. MessageType
  15088. MessageType
  15089. Delivery Report
  15090. VIM_DLR
  15091. NonDelivery Report
  15092. VIM_NDLR
  15093. Return Receipt
  15094. VIM_RTRC
  15095. VIM_MAILJ    
  15096. Subject
  15097. $53$47$48$50$51$52$Conflict
  15098. $MessageType
  15099.     L1S1$
  15100. $53$47$48T
  15101. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris###
  15102. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM42)/P=240
  15103. Recipients
  15104. SenderCategorized
  15105. SenderCategorized
  15106. (No Category)
  15107. DeliveredDate
  15108. DeliveredDate
  15109. PostedDate
  15110. PostedDatei
  15111. FromDomainh
  15112. FromDomain"
  15113. DeliveryPriority
  15114. DeliveryPriority
  15115. MessageType
  15116. MessageType
  15117. Delivery Report
  15118. VIM_DLR
  15119. NonDelivery Report
  15120. VIM_NDLR
  15121. Return Receipt
  15122. VIM_RTRC
  15123. VIM_MAILJ    
  15124. Subject
  15125. $53$47$48$50$51$52$Conflict
  15126. $MessageType
  15127.     L1S1$
  15128. $53$47$48
  15129. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris#####################################################
  15130. qHmvO
  15131. CN=Stan Getz/O=bogusCN=Lou Reed/O=bogusCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesSharedTaskLibrarys34Q1##########################
  15132.  $53Draft4
  15133. PostedDateY
  15134. VIMSEL_DRAFT
  15135. $47Date^
  15136. DeliveredDate
  15137. DeliveredDate
  15138. PostedDate
  15139. PostedDatei
  15140. $48From`
  15141. FromDomainh
  15142. FromDomain"
  15143. $50PriorityD
  15144. DeliveryPriority
  15145. DeliveryPriority
  15146. $51Type
  15147. MessageType
  15148. MessageType
  15149. Delivery Report
  15150. VIM_DLR
  15151. NonDelivery Report
  15152. VIM_NDLR
  15153. Return Receipt
  15154. VIM_RTRC
  15155. VIM_MAILJ    
  15156. $52Subject
  15157. Subject
  15158. Categori_ze
  15159. _Edit Document
  15160. Send Docu_ment
  15161. _Forward
  15162. O=Lotus Notes
  15163. O=Lotus Notes
  15164. PURSAFO
  15165. |.:#U
  15166. O=Lotus Notes
  15167. CN=Lotus Notes Template Development/O=Lotus Notes
  15168. PURSAFO
  15169. Fde!f^^
  15170. UMQ+5a
  15171. $TYPE
  15172. $TABLEFORMAT
  15173. $Author
  15174. $TITLE
  15175. $Index
  15176. $Formula
  15177. $FormulaClass
  15178. $VIEWFORMAT
  15179. $Comment
  15180. $ACTIONS
  15181.  $53Categoryj
  15182. Recipients
  15183. Categories
  15184. Categoriesb
  15185. (No Category)
  15186. $47Date^
  15187. DeliveredDate
  15188. DeliveredDate
  15189. PostedDate
  15190. PostedDatei
  15191. $48From`
  15192. FromDomainh
  15193. FromDomain"
  15194. $50PriorityD
  15195. DeliveryPriority
  15196. DeliveryPriority
  15197. $51Type
  15198. MessageType
  15199. MessageType
  15200. Delivery Report
  15201. VIM_DLR
  15202. NonDelivery Report
  15203. VIM_NDLR
  15204. Return Receipt
  15205. VIM_RTRC
  15206. VIM_MAILJ    
  15207. $52Subject
  15208. Subject
  15209. Categori_ze
  15210. _Edit Document
  15211. Send Docu_ment
  15212. _Forward
  15213. O=Lotus Notes
  15214. O=Lotus Notes
  15215. PURSAFO
  15216. |.:#U
  15217. O=Lotus Notes
  15218. CN=Lotus Notes Template Development/O=Lotus Notes
  15219. PURSAFO
  15220. Fde!f^^
  15221. $TYPE
  15222. $TABLEFORMAT
  15223. $Author
  15224. $TITLE
  15225. $Index
  15226. $Formula
  15227. $FormulaClass
  15228. $VIEWFORMAT
  15229. $Comment
  15230. $ACTIONS
  15231.  $53Keywordz
  15232. Recipients
  15233. SenderCategorized
  15234. SenderCategorized
  15235. (No Category)
  15236. $47Date^
  15237. DeliveredDate
  15238. DeliveredDate
  15239. PostedDate
  15240. PostedDatei
  15241. $48From`
  15242. FromDomainh
  15243. FromDomain"
  15244. $50PriorityD
  15245. DeliveryPriority
  15246. DeliveryPriority
  15247. $51Type
  15248. MessageType
  15249. MessageType
  15250. Delivery Report
  15251. VIM_DLR
  15252. NonDelivery Report
  15253. VIM_NDLR
  15254. Return Receipt
  15255. VIM_RTRC
  15256. VIM_MAILJ    
  15257. $52Subject
  15258. Subject
  15259. Categori_ze
  15260. _Edit Document
  15261. Send Docu_ment
  15262. _Forward
  15263. O=Lotus Notes
  15264. O=Lotus Notes
  15265. PURSAFO
  15266. |.:#U
  15267. O=Lotus Notes
  15268. CN=Lotus Notes Template Development/O=Lotus Notes
  15269. PURSAFO
  15270. Fde!f^^
  15271. $TYPE
  15272. $TABLEFORMAT
  15273. $Author
  15274. $TITLE
  15275. $Index
  15276. $Formula
  15277. $FormulaClass
  15278. $VIEWFORMAT
  15279. $Comment
  15280. $ACTIONS
  15281. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM98)/P=240
  15282. MessageType
  15283. MessageType
  15284. Delivery Report
  15285. VIM_DLR
  15286. NonDelivery Report
  15287. VIM_NDLR
  15288. Return Receipt
  15289. VIM_RTRC
  15290. VIM_MAILJ    
  15291. DeliveredDate
  15292. DeliveredDate
  15293. PostedDate
  15294. PostedDatei
  15295. FromDomainh
  15296. FromDomain"
  15297. DeliveryPriority
  15298. DeliveryPriority
  15299. MessageType
  15300. MessageType
  15301. Delivery Report
  15302. VIM_DLR
  15303. NonDelivery Report
  15304. VIM_NDLR
  15305. Return Receipt
  15306. VIM_RTRC
  15307. VIM_MAILJ    
  15308. Subject
  15309. $45$47$48$50$51$52$Conflict
  15310. $MessageType
  15311.     L1S1$
  15312. $45$47$48
  15313. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris###############################################
  15314. ($Alarms)|$Alarms1($Alarms)|$Alarms
  15315. $AlarmTimeh
  15316. $AlarmTime
  15317. CalendarDateTime
  15318. $AlarmOffset
  15319.     7S9S13S15S17S19S21S23S
  15320. $92CalendarDateTime$AlarmOffset$AlarmDescription$Conflict
  15321. $92CalendarDateTime
  15322. $92AlarmTime
  15323. $AlarmTimeh
  15324. $AlarmTime
  15325. CalendarDateTime
  15326. $AlarmOffset
  15327.     7S9S13S15S17S19S21S23S
  15328. CalendarDateTimeCalendarDateTime$AlarmOffsetOffset$AlarmDescriptionDescription&
  15329. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  15330. ########################
  15331. ($Inbox)($Inbox)1
  15332. $93$70
  15333. $70Newly received mail messages.FY
  15334. CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  15335. ############
  15336. ($Trash)1($Trash)1
  15337. $87$64
  15338. $64FY
  15339. CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  15340. ########################################################
  15341. CN=Mike Brady/O=Iris AssociatesCN=Ryan Jansen/O=IrisJoe BlowCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=user2 test/O=C&SCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesAppointmentProcessings34Q1################################################
  15342.  $45Type
  15343. MessageType
  15344. MessageType
  15345. Delivery Report
  15346. VIM_DLR
  15347. NonDelivery Report
  15348. VIM_NDLR
  15349. Return Receipt
  15350. VIM_RTRC
  15351. VIM_MAILJ    
  15352. $47Date^
  15353. DeliveredDate
  15354. DeliveredDate
  15355. PostedDate
  15356. PostedDatei
  15357. $48From`
  15358. FromDomainh
  15359. FromDomain"
  15360. $50PriorityD
  15361. DeliveryPriority
  15362. DeliveryPriority
  15363. $51Type
  15364. MessageType
  15365. MessageType
  15366. Delivery Report
  15367. VIM_DLR
  15368. NonDelivery Report
  15369. VIM_NDLR
  15370. Return Receipt
  15371. VIM_RTRC
  15372. VIM_MAILJ    
  15373. $52Subject
  15374. Subject
  15375. Categori_ze
  15376. _Edit Document
  15377. Send Docu_ment
  15378. _Forward
  15379. O=Lotus Notes
  15380. O=Lotus Notes
  15381. PURSAFO
  15382. |.:#U
  15383. O=Lotus Notes
  15384. CN=Lotus Notes Template Development/O=Lotus Notes
  15385. PURSAFO
  15386. Fde!f^^
  15387. $TYPE
  15388. $TABLEFORMAT
  15389. $Author
  15390. $TITLE
  15391. $Index
  15392. $Formula
  15393. $FormulaClass
  15394. $VIEWFORMAT
  15395. $Comment
  15396. $ACTIONS
  15397. New Memo.
  15398.     0S0E
  15399. Delete 
  15400.     0S0E
  15401. Move To Folder...
  15402.     0S0E
  15403. _Forward
  15404. Reply
  15405. Reply
  15406.     0S0E
  15407. Reply With History@
  15408. Reply with history
  15409.     0S0E
  15410. Categori_zeK
  15411. _Edit Document
  15412. Send    
  15413. Resend
  15414. NonDelivery Report
  15415. Not a Delivery Failure Report
  15416. You cannot Resend a message unless it is a Delivery Failure Report.
  15417.     6S12S17S23S
  15418. _Move To Folder...
  15419. _Remove From Folder...
  15420. O=Lotus Notes
  15421. O=Lotus Notes
  15422. PURSAFO
  15423. |.:#U
  15424. O=Lotus Notes
  15425. CN=Lotus Notes Template Development/O=Lotus Notes
  15426. PURSAFO
  15427. Fde!f^^
  15428. $TITLE
  15429. $PublicAccess
  15430. $Name
  15431. $Index
  15432. $Formula
  15433. $FormulaClass
  15434. $VIEWFORMAT
  15435. $Comment
  15436. $ACTIONS
  15437. DeliveredDate
  15438. PostedDate
  15439. PostedDateY
  15440. IsMailStationeryh
  15441. _ViewIcon
  15442. _ViewIcon
  15443. Importance
  15444. Importance
  15445. _ViewIcon
  15446. _ViewIcon
  15447. $TypeIcon
  15448.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  15449. SentBy
  15450. Principal
  15451. Principal
  15452.     1S2S5S6S8S10S
  15453. DeliveredDate
  15454. SendTo
  15455. SentBy
  15456. SendTo
  15457.     0R1S2S5S6S7S8S9S10S12S14S18S
  15458.     0R1S2S8S
  15459.     0R1S2S15S16S
  15460. DeliveredDate
  15461. SendTo
  15462. SentBy
  15463. SendTo
  15464.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15465. DeliveredDate
  15466. SendTo
  15467. SentBy
  15468. SendTo
  15469.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15470. Person
  15471. X400FreeForm^
  15472.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  15473. Person2
  15474. Person
  15475. Person
  15476. Person
  15477. Person
  15478.     0R1S2S12S13S22S34S
  15479. Delivery Report
  15480. NonDelivery Report
  15481. Trace Report
  15482. Mail Router
  15483. Person2
  15484.     0R3S4S5S6S7S8S10S12S
  15485. DeliveredDate
  15486. DeliveredDate
  15487. PostedDate
  15488. PostedDate
  15489.     3S4S6S8S9S10S12S14S
  15490. $ContentIconh
  15491. $ContentIcon
  15492. Froma
  15493.  pager 
  15494. SendToa
  15495.  pager 
  15496. message.wav
  15497. vmsg_hdr.wav
  15498. .wavG
  15499. .tifG
  15500. $ContentIconh
  15501. $ContentIcon
  15502.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  15503. NonDelivery Report
  15504. DELIVERY FAILURE: 
  15505. FailureReason
  15506. Delivery Report
  15507. DELIVERED: 
  15508. Subject
  15509. Return Receipt
  15510. RECEIVED: 
  15511. Subject
  15512. ReturnNonReceipt
  15513. NOT RECEIVED: 
  15514. Subject
  15515. Subject
  15516.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  15517. $86$93$70$85$73$Conflict
  15518. DeliveredDate
  15519. PostedDate
  15520. PostedDateY
  15521. IsMailStationeryh
  15522. _ViewIcon
  15523. _ViewIcon
  15524. Importance
  15525. Importance
  15526. _ViewIcon
  15527. _ViewIcon
  15528. $TypeIcon
  15529.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  15530. $93Who>
  15531. SentBy
  15532. Principal
  15533. Principal
  15534.     1S2S5S6S8S10S
  15535. DeliveredDate
  15536. SendTo
  15537. SentBy
  15538. SendTo
  15539.     0R1S2S5S6S7S8S9S10S12S14S18S
  15540.     0R1S2S8S
  15541.     0R1S2S15S16S
  15542. DeliveredDate
  15543. SendTo
  15544. SentBy
  15545. SendTo
  15546.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15547. DeliveredDate
  15548. SendTo
  15549. SentBy
  15550. SendTo
  15551.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15552. Person
  15553. X400FreeForm^
  15554.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  15555. Person2
  15556. Person
  15557. Person
  15558. Person
  15559. Person
  15560.     0R1S2S12S13S22S34S
  15561. Delivery Report
  15562. NonDelivery Report
  15563. Trace Report
  15564. Mail Router
  15565. Person2
  15566.     0R3S4S5S6S7S8S10S12S
  15567. $70Date
  15568. DeliveredDate
  15569. DeliveredDate
  15570. PostedDate
  15571. PostedDate
  15572.     3S4S6S8S9S10S12S14S$85F
  15573. $ContentIconh
  15574. $ContentIcon
  15575. Froma
  15576.  pager 
  15577. SendToa
  15578.  pager 
  15579. message.wav
  15580. vmsg_hdr.wav
  15581. .wavG
  15582. .tifG
  15583. $ContentIconh
  15584. $ContentIcon
  15585.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$73Subject
  15586. NonDelivery Report
  15587. DELIVERY FAILURE: 
  15588. FailureReason
  15589. Delivery Report
  15590. DELIVERED: 
  15591. Subject
  15592. Return Receipt
  15593. RECEIVED: 
  15594. Subject
  15595. ReturnNonReceipt
  15596. NOT RECEIVED: 
  15597. Subject
  15598. Subject
  15599.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  15600. New Memo.
  15601.     0S0E
  15602. Delete 
  15603.     0S0E
  15604. Move To Folder...+ 
  15605.     0S0E
  15606. _Forward
  15607. Reply 4
  15608. Reply
  15609.     0S0E
  15610. Reply With History@
  15611. Reply with history
  15612.     0S0E
  15613. Categori_zer
  15614. _Edit Document
  15615. Send Docu_ment    
  15616. Resend
  15617. NonDelivery Report
  15618. Not a Delivery Failure Report
  15619. You cannot Resend a message unless it is a Delivery Failure Report.
  15620.     6S12S17S23S
  15621. _Move To Folder...
  15622. _Remove From Folder...
  15623. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
  15624. '++LotusScript Development Environment:2:5:(Forward):0:1
  15625. Declare Sub Click(Source As Button)
  15626. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15627. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15628. Private Sub BindEvents(Byval Objectname_ As String)
  15629.      Static Source As BUTTON
  15630.      Set Source = Bind(Objectname_)
  15631.      On Event Click From Source Call Click
  15632. End Sub
  15633. '++LotusScript Development Environment:2:2:Click:1:12
  15634. Sub Click(Source As Button)
  15635.      Call CreateNewDoc(NEW_MEMO)
  15636. End Sub
  15637. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
  15638. '++LotusScript Development Environment:2:5:(Forward):0:1
  15639. Declare Sub Click(Source As Button)
  15640. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15641. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15642. Private Sub BindEvents(Byval Objectname_ As String)
  15643.      Static Source As BUTTON
  15644.      Set Source = Bind(Objectname_)
  15645.      On Event Click From Source Call Click
  15646. End Sub
  15647. '++LotusScript Development Environment:2:2:Click:1:12
  15648. Sub Click(Source As Button)
  15649.      Call CreateNewDoc(NEW_CALENDAR)
  15650. End Sub
  15651. tmpnewdoc
  15652.     1S2S
  15653. Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
  15654. '++LotusScript Development Environment:2:5:(Forward):0:1
  15655. Declare Sub Click(Source As Button)
  15656. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15657. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15658. Private Sub BindEvents(Byval Objectname_ As String)
  15659.      Static Source As BUTTON
  15660.      Set Source = Bind(Objectname_)
  15661.      On Event Click From Source Call Click
  15662. End Sub
  15663. '++LotusScript Development Environment:2:2:Click:1:12
  15664. Sub Click(Source As Button)
  15665.      Call CreateNewDoc(NEW_TASK)
  15666. End Sub
  15667. tmpnewdoc
  15668.     1S2S
  15669. Copy into\New Groupe,
  15670. NewGroup
  15671.     0S0E
  15672. tmpnewdoc
  15673.     1S2S
  15674. Retrieve maila
  15675. Database
  15676.     1S2S
  15677. Database
  15678. ($Inbox)
  15679.     0R4S6S
  15680.     4S5S
  15681. '++LotusScript Development Environment:2:5:(Options):0:74
  15682. Option Public
  15683. Use "ObjectVariables"
  15684. Use "DocumentConversions"
  15685. '++LotusScript Development Environment:2:5:(Forward):0:1
  15686. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15687. O=Lotus Notes
  15688. O=Lotus Notes
  15689. PURSAFO
  15690. |.:#U
  15691. O=Lotus Notes
  15692. CN=Lotus Notes Template Development/O=Lotus Notes
  15693. PURSAFO
  15694. Fde!f^^
  15695. $TITLE
  15696. $Name
  15697. $Index
  15698. $Formula
  15699. $FormulaClass
  15700. $VIEWFORMAT
  15701. $Comment
  15702. $ACTIONS
  15703. $SCRIPTOBJ_12
  15704. $SCRIPTOBJ_13
  15705. $SCRIPTOBJ_14
  15706. $ViewGlobalScript
  15707. $ViewGlobalScript_O
  15708. DeliveredDate
  15709. PostedDate
  15710. PostedDateY
  15711. IsMailStationeryh
  15712. _ViewIcon
  15713. _ViewIcon
  15714. Importance
  15715. Importance
  15716. _ViewIcon
  15717. _ViewIcon
  15718. $TypeIcon
  15719.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  15720. SentBy
  15721. Principal
  15722. Principal
  15723.     1S2S5S6S8S10S
  15724. DeliveredDate
  15725. SendTo
  15726. SentBy
  15727. SendTo
  15728.     0R1S2S5S6S7S8S9S10S12S14S18S
  15729.     0R1S2S8S
  15730.     0R1S2S15S16S
  15731. DeliveredDate
  15732. SendTo
  15733. SentBy
  15734. SendTo
  15735.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15736. DeliveredDate
  15737. SendTo
  15738. SentBy
  15739. SendTo
  15740.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15741. Person
  15742. X400FreeForm^
  15743.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  15744. Person2
  15745. Person
  15746. Person
  15747. Person
  15748. Person
  15749.     0R1S2S12S13S22S34S
  15750. Delivery Report
  15751. NonDelivery Report
  15752. Trace Report
  15753. Mail Router
  15754. Person2
  15755.     0R3S4S5S6S7S8S10S12S
  15756. DeliveredDate
  15757. DeliveredDate
  15758. PostedDate
  15759. PostedDate
  15760.     3S4S6S8S9S10S12S14S
  15761. $ContentIconh
  15762. $ContentIcon
  15763. Froma
  15764.  pager 
  15765. SendToa
  15766.  pager 
  15767. message.wav
  15768. vmsg_hdr.wav
  15769. .wavG
  15770. .tifG
  15771. $ContentIconh
  15772. $ContentIcon
  15773.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  15774. IsMailStationeryh
  15775. MailStationeryName
  15776. NonDelivery Report
  15777. DELIVERY FAILURE: 
  15778. FailureReason
  15779. Delivery Report
  15780. DELIVERED: 
  15781. Subject
  15782. Return Receipt
  15783. RECEIVED: 
  15784. Subject
  15785. ReturnNonReceipt
  15786. NOT RECEIVED: 
  15787. Subject
  15788. Subject
  15789.     7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
  15790. $79$87$64$80$69$Conflict
  15791. DeliveredDate
  15792. PostedDate
  15793. PostedDateY
  15794. IsMailStationeryh
  15795. _ViewIcon
  15796. _ViewIcon
  15797. Importance
  15798. Importance
  15799. _ViewIcon
  15800. _ViewIcon
  15801. $TypeIcon
  15802.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  15803. $87Who>
  15804. SentBy
  15805. Principal
  15806. Principal
  15807.     1S2S5S6S8S10S
  15808. DeliveredDate
  15809. SendTo
  15810. SentBy
  15811. SendTo
  15812.     0R1S2S5S6S7S8S9S10S12S14S18S
  15813.     0R1S2S8S
  15814.     0R1S2S15S16S
  15815. DeliveredDate
  15816. SendTo
  15817. SentBy
  15818. SendTo
  15819.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15820. DeliveredDate
  15821. SendTo
  15822. SentBy
  15823. SendTo
  15824.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  15825. Person
  15826. X400FreeForm^
  15827.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  15828. Person2
  15829. Person
  15830. Person
  15831. Person
  15832. Person
  15833.     0R1S2S12S13S22S34S
  15834. Delivery Report
  15835. NonDelivery Report
  15836. Trace Report
  15837. Mail Router
  15838. Person2
  15839.     0R3S4S5S6S7S8S10S12S
  15840. $64Date
  15841. DeliveredDate
  15842. DeliveredDate
  15843. PostedDate
  15844. PostedDate
  15845.     3S4S6S8S9S10S12S14S$80F
  15846. $ContentIconh
  15847. $ContentIcon
  15848. Froma
  15849.  pager 
  15850. SendToa
  15851.  pager 
  15852. message.wav
  15853. vmsg_hdr.wav
  15854. .wavG
  15855. .tifG
  15856. $ContentIconh
  15857. $ContentIcon
  15858.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$69Subject
  15859. IsMailStationeryh
  15860. MailStationeryName
  15861. NonDelivery Report
  15862. DELIVERY FAILURE: 
  15863. FailureReason
  15864. Delivery Report
  15865. DELIVERED: 
  15866. Subject
  15867. Return Receipt
  15868. RECEIVED: 
  15869. Subject
  15870. ReturnNonReceipt
  15871. NOT RECEIVED: 
  15872. Subject
  15873. Subject
  15874.     7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
  15875. Categori_ze
  15876. _Edit Document
  15877. Send Docu_ment
  15878. _Forward
  15879. Empty Trash
  15880.     0S0E
  15881. _Move to Folder...
  15882. _Remove From Trash
  15883. >|'++LotusScript Development Environment:2:5:(Options):0:74
  15884. Option Public
  15885. '++LotusScript Development Environment:2:5:(Forward):0:1
  15886. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15887. O=Lotus Notes
  15888. O=Lotus Notes
  15889. PURSAFO
  15890. |.:#U
  15891. O=Lotus Notes
  15892. CN=Lotus Notes Template Development/O=Lotus Notes
  15893. PURSAFO
  15894. Fde!f^^
  15895. $TITLE
  15896. $PublicAccess
  15897. $Name
  15898. $Index
  15899. $Formula
  15900. $FormulaClass
  15901. $VIEWFORMAT
  15902. $Comment
  15903. $ACTIONS
  15904. $ViewGlobalScript
  15905. $ViewGlobalScript_O
  15906. '++LotusScript Development Environment:2:5:(Options):0:74
  15907. Option Public 
  15908. Use "NoticeProcessing"
  15909. Use "ResourceProcessing"    
  15910. '++LotusScript Development Environment:2:5:(Forward):0:1
  15911. Declare Sub Initialize
  15912. Declare Function SendInvitation As Integer
  15913. Declare Sub RescheduleAppointment
  15914. Declare Sub CancelAppointment
  15915. Declare Sub ConfirmAppointment
  15916. Declare Sub RemoveInvitee
  15917. Declare Sub BuildAttendeeLists(mode As Integer)
  15918. Declare Sub SelectUserToRemove
  15919. Declare Sub ChangeStatus
  15920. Declare Sub RollbackAppointment(BusyPriority As String)
  15921. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15922. 'AppointmentProcessing: 
  15923. '++LotusScript Development Environment:2:2:Initialize:1:10
  15924. Sub Initialize
  15925.      
  15926. End Sub
  15927. '++LotusScript Development Environment:2:1:SendInvitation:1:8
  15928. Function SendInvitation As Integer
  15929.     *This routine is called whenever the meeting originator invites users to a meeting
  15930.     *This routine sends out an invitation notice to the people listed in the 
  15931.      SendTo and CopyTo items and adds them to the RequiredAttendees and OptionalAttendees items        
  15932.     *This is the only routine that does not create a separate notice document to mail
  15933.     *The reason is that we need the router to update the SendTo and CopyTo items     
  15934.     Outputs:
  15935.     returns 0 if no errors occur, 1 if an error does occur
  15936. %END REM
  15937.      
  15938.      
  15939.      On Error Goto ErrorRoutine
  15940.      On Error 4412 Goto CleanUp          'this should trap uidoc.Send errors
  15941.      
  15942. 'if we have never invited anyone, add the SequenceNum item
  15943.      If Not note.HasItem("SequenceNum") Then note.SequenceNum = 1
  15944.      
  15945. 'modify the appointment document so it is an invitation
  15946.      note.Form  = "Notice"
  15947.      note.NoticeType = ORS_MSGTYPE_INVITE
  15948.      note.Topic = note.Subject
  15949.      note.apptunid = note.UniversalID
  15950.      If (note.Broadcast(0) = "1") Then
  15951.           MailSubject$ = "Broadcast - "
  15952.      Else
  15953.           MailSubject$ = "Invitation - "
  15954.      End If
  15955.      Set startitem = note.GetFirstItem("StartDateTime")
  15956.      If (note.Room(0) <> "") Then
  15957.           note.Subject = MailSubject$ & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
  15958.      Else
  15959.           note.Subject =  MailSubject$ & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
  15960.      End If     
  15961.      Call note.ReplaceItemValue("_ViewIcon",133)
  15962.      note.Principal = Owner
  15963.      note.Chair = Owner
  15964. 'remove fields that will need to be added later
  15965.      Call note.RemoveItem("CalendarDateTime")
  15966.      Call note.RemoveItem("OrgTable")
  15967.      BusyPriority = note.GetItemValue("$BusyPriority")
  15968.      Call note.RemoveItem("$BusyName")
  15969.      Call note.RemoveItem("$BusyPriority")
  15970.      Call note.RemoveItem("tmpOwner")
  15971.      
  15972. 'build the attendee lists so that the invitees have them
  15973.      Call BuildAttendeeLists(1)
  15974.      Call note.RemoveItem("tmpRequiredAttendees")
  15975.      Call note.RemoveItem("tmpOptionalAttendees")
  15976.      
  15977. 'this supresses the sign/encrypt dialog
  15978.      note.MailOptions = "1"
  15979.      Call uidoc.reload
  15980.      
  15981. 'we call the send from the NotesUIDocument object so that the Ambiguous Names dialog is invoked if needed    
  15982.      Call uidoc.Send
  15983.      
  15984. 'reset the fields on the note to make it an appointment
  15985.      Call RollbackAppointment(BusyPriority(0))
  15986.      
  15987. 'rebuild the attendees lists with the updated values from the router
  15988.      Call BuildAttendeeLists(2)
  15989.      
  15990. 'remove fields from the note
  15991.      note.SendTo =""
  15992.      note.CopyTo = ""
  15993.      SendInvitation = 0
  15994.      Exit Function
  15995.      
  15996. Cleanup:
  15997. 'reset the fields on the note to make it an appointment
  15998.      Call RollbackAppointment(BusyPriority(0))
  15999.      SendInvitation = 1
  16000.      Call uidoc.Reload
  16001.      Exit Function
  16002.      
  16003. ErrorRoutine:
  16004.      Call RollbackAppointment(BusyPriority(0))
  16005.      Messagebox Error & " (SendInvitation)"
  16006.      SendInvitation = 1     
  16007.      Exit Function
  16008. End Function
  16009. '++LotusScript Development Environment:2:2:RescheduleAppointment:1:8
  16010. Sub RescheduleAppointment
  16011.     *This routine is called whenever the user changes the room and/or the date/time of the meeting
  16012.     *This routine increments the SequenceNum item by 1 and notifies the room, resources, and invitees
  16013.      of the change by sending Reschedule notices out
  16014.     *This is routine is called from the uidocument or the calendar view (for drag/drop)
  16015. %END REM
  16016.      
  16017.      On Error Resume Next
  16018.      
  16019. 'see if this document belongs to a repeat set
  16020.      If (note.hasitem("tmpRescheduleWhich")) Then
  16021.           Call ProcessRepeatingResources(note.tmprescheduleWhich(0),ORS_MSGTYPE_RESCHEDULE,ORS_STATE_RESOURCE)
  16022.           Call ProcessRepeatingResources(note.tmprescheduleWhich(0),ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM)
  16023.      Else
  16024. 'this is not a repeating meeting          
  16025. 'reschedule the resources if need be
  16026.           If (note.RequiredResources(0) <> "") Then Call RescheduleResources(ORS_STATE_RESOURCE,note)
  16027.  'reschedule the room if need be
  16028.           If (note.RoomRequired(0) = "1") And (note.Room(0) <> "") Then Call RescheduleResources(ORS_STATE_ROOM,note)         
  16029.      End If
  16030.      
  16031.      On Error Goto ErrorRoutine
  16032.      
  16033. 'we need to add the correct attendees to the sendto item
  16034.      Call GetMailingList
  16035.      
  16036. 'make sure we have people to notify
  16037.      If (MailingList(0) = "") Then Exit Sub
  16038.      
  16039. 'create the notice document
  16040.      Call CreateNoticeDocument("Reschedule -",ORS_MSGTYPE_RESCHEDULE,33,1)
  16041.      
  16042.      notice.SendTo = MailingList
  16043.      Call notice.Send(False)
  16044.      Messagebox "The invitees have been notified that the appointment has changed.",0,"Status"
  16045.      
  16046.      Exit Sub
  16047. ErrorRoutine:
  16048.      Messagebox Error & " (RescheduleAppointment)"
  16049.      Exit Sub
  16050. End Sub
  16051. '++LotusScript Development Environment:2:2:CancelAppointment:1:8
  16052. Sub CancelAppointment
  16053.     *This routine is called whenever the Chair manually cancels an appointment
  16054.     *A Cancellation notice is sent to the room, resources, and invitees
  16055.     *The $BusyPriority item is modified to tell the FreeTime system we are no longer busy
  16056.      1 = Busy, 2 = Not busy
  16057. %END REM
  16058.      
  16059.      On Error Resume Next
  16060.      
  16061. 'First, take care of cancelling any rooms/resrouces the user may have invited
  16062. 'if this is a repeating meeting, process every instance that we should
  16063.      If (note.HasItem("tmpRescheduleWhich")) Then
  16064.           Call ProcessRepeatingResources(note.tmpRescheduleWhich(0),ORS_MSGTYPE_CANCEL,ORS_STATE_RESOURCE)
  16065.           Call ProcessRepeatingResources(note.tmpRescheduleWhich(0),ORS_MSGTYPE_CANCEL,ORS_STATE_ROOM)
  16066.      Else
  16067. 'cancel the room and resource if need be
  16068.           If (note.RequiredResources(0) <> "") Then Call CancelResources(ORS_STATE_RESOURCE,note)
  16069.           If (note.RoomRequired(0) = "1") And (note.Room(0) <> "") Then Call CancelResources(ORS_STATE_ROOM,note)
  16070.      End If
  16071.      
  16072.      On Error Goto ErrorRoutine
  16073. 'we need to get the attendees who should be notified of the cancellation
  16074.      Call GetMailingList
  16075.      
  16076. 'make sure we have people to notify
  16077.      If (MailingList(0) <> "") Then
  16078. 'we don't exit since we need to remove items from the note          
  16079. 'create the notice
  16080.           Call CreateNoticeDocument("Cancelled -",ORS_MSGTYPE_CANCEL,81,1)
  16081.           
  16082.           notice.SendTo = MailingList
  16083.           Call notice.Send(False)
  16084.           Messagebox "The invitees have been notified that this appointment has been cancelled.",0,"Status"
  16085.      End If
  16086. 'update the appointment document
  16087.      note.RemoveItem("CalendarDateTime")
  16088.      Call note.ReplaceItemValue("$BusyPriority","2")     
  16089.      note.NoticeType = ORS_MSGTYPE_CANCEL
  16090.      Call note.RemoveItem("OrgTable")
  16091. 'if this document had an alarm, remove it from the alarms folder
  16092.      If (note.HasItem("$Alarm")) Then Call note.RemoveFromFolder("$Alarms")
  16093.      
  16094.      Exit Sub
  16095. ErrorRoutine:
  16096.      Messagebox Error & " (CancelAppointment)"
  16097.      Exit Sub
  16098. End Sub
  16099. '++LotusScript Development Environment:2:2:ConfirmAppointment:1:8
  16100. Sub ConfirmAppointment
  16101.     *This routine sends out a confirmation notice to all invitees
  16102.     *If this is a repeating meeting, then the people invited to that instance of the
  16103.      meeting being confirmed is included in the confirmation
  16104.     *If this is not a repeating meeting, then that status of all invitees is included
  16105.      in the confirmation notice
  16106. %END REM
  16107.      
  16108.      On Error Goto ErrorRoutine
  16109.      
  16110. 'we need to get a list of attendees to send this to   
  16111.      Call GetMailingList
  16112.      
  16113. 'make sure we have people to notify
  16114.      If (MailingList(0) = "") Then Exit Sub
  16115.      
  16116.      Call CreateNoticeDocument("Confirmed -",ORS_MSGTYPE_CONFIRMATION,10,1)
  16117.      
  16118. 'if we are confirming a NON-repeating meeting, do the following
  16119.      If Not(note.HasItem("OrgRepeat")) Then
  16120.           Dim rtitem  As New NotesRichTextItem(notice,"StatusUpdate")
  16121.           
  16122. 'add all of the invitee status's to the rich text item   
  16123.           For i = 0 To InviteeCounter-1
  16124.                Set nam = New NotesName(InviteeList(i).InviteeName)
  16125.                Select Case InviteeList(i).Status
  16126.                Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
  16127.                     Call rtitem.AppendText(nam.Common & " -> Accepted")
  16128.                Case ORS_MSGTYPE_REJECT
  16129.                     Call rtitem.AppendText(nam.Common & " -> Declined")
  16130.                Case ORS_MSGTYPE_COUNTER
  16131.                     Call rtitem.AppendText(nam.Common & " -> Counter Proposed")
  16132.                Case ORS_MSGTYPE_DELEGATING
  16133.                     Call rtitem.AppendText(nam.Common & " -> Delegated to " & InviteeList(i).Delegee)               
  16134.                Case ORG_STATUS_WAITING
  16135.                     Call rtitem.AppendText(nam.Common & " -> No Response")
  16136.                End Select
  16137.                Call rtitem.AddNewLine(1)          
  16138.           Next
  16139. 'include the people who were uninvited
  16140.           If (note.Uninvited(0) <> "") Then
  16141.                Call rtitem.AddNewLine(1)
  16142.                Call rtitem.AppendText("Uninvited:")          
  16143.                Call rtitem.AddNewLine(1)
  16144.                Uninvited = note.Uninvited
  16145.                For x = 0 To Ubound(Uninvited)
  16146.                     Call rtitem.AppendText(Uninvited(x))
  16147.                     Call rtitem.AddNewLine(1)
  16148.                Next          
  16149.           End If
  16150.      End If
  16151.      notice.SendTo = MailingList
  16152.      Call notice.Send(False)
  16153.      Messagebox "A confirmation notice has been sent to the invitees.",0,"Status"
  16154.      Exit Sub
  16155.      
  16156. ErrorRoutine:
  16157.      Messagebox Error & " (ConfirmAppointment)"
  16158.      Exit Sub
  16159. End Sub
  16160. '++LotusScript Development Environment:2:2:RemoveInvitee:1:8
  16161. Sub RemoveInvitee
  16162.     *This routine is called from SelectUserToRemove
  16163.     *This routine sends out a StatusUpdate message to the specified invitees
  16164.         with the OrgStatus item set to ORS_STATUS_REMOVED
  16165.     *The specified invitees are then appended to an item called Uninvited
  16166. %END REM
  16167.      Dim FullUserNames() As String
  16168.      Dim nIndex As Integer
  16169.      
  16170.      On Error Goto ErrorRoutine
  16171.      
  16172.      Call CreateNoticeDocument("You are no longer required to attend this appointment -",ORS_MSGTYPE_STATUSUPDATE,157,1)
  16173.      
  16174.      notice.OrgStatus = ORS_STATUS_REMOVED
  16175. 'for each person in the tmpUninvited field, get their full mail address
  16176.      PeopleToSend = note.tmpPeopleSelected
  16177.      Redim FullUserNames(Ubound(PeopleToSend))
  16178.      For i = 0 To Ubound(PeopleToSend)
  16179.           nIndex = FindInvitee(PeopleToSend(i))
  16180.           If (nIndex = -1) Then
  16181.                FullUserNames(i) = PeopleToSend(i)
  16182.           Else
  16183.                If (InviteeList(nIndex).Domain <> "") Then
  16184.                     FullUserNames(i) = InviteeList(nIndex).InviteeName & "@" & InviteeList(nIndex).Domain
  16185.                Else
  16186.                     FullUserNames(i) = InviteeList(nIndex).InviteeName    
  16187.                End If
  16188.                InviteeList(nIndex).Status = ORS_STATUS_REMOVED
  16189.                InviteeList(nIndex).KeepPosted = ""
  16190.           End If
  16191.      Next
  16192.      
  16193.      notice.SendTo = FullUserNames
  16194.      Call notice.Send(False)
  16195.      Messagebox "An Uninvite notice has been sent to the people selected.",0,"Status"
  16196.      Exit Sub
  16197.      
  16198. ErrorRoutine:
  16199.      Messagebox Error & " (RemoveInvitee)"
  16200.      Exit Sub
  16201. End Sub
  16202. '++LotusScript Development Environment:2:2:BuildAttendeeLists:1:8
  16203. Sub BuildAttendeeLists(mode As Integer)
  16204.  *This routine is called from SendInvitation ONLY!
  16205.  *It is called twice
  16206.   First time - remove duplicate entries
  16207.   Second time - update names
  16208. %END REM
  16209.      
  16210.      Dim vSendToNames As Variant
  16211.      Dim vCopyToNames As Variant
  16212.      Dim vNewRequiredNames() As Variant
  16213.      Dim vNewOptionalNames() As Variant 
  16214.      Dim bInviteeExists As Integer
  16215.      Dim counter As Integer
  16216.      Dim newcounter As Integer
  16217.      Dim sCanonicalName As String
  16218.      Dim sDomainName As String
  16219.      Dim sNewNames() As String
  16220.      
  16221.      On Error Goto ErrorRoutine
  16222.      
  16223. 'get the sendto and copyto field values
  16224.      vSendToNames = note.SendTo
  16225.      vCopyToNames = note.CopyTo
  16226.      
  16227. 'determine why we are being called
  16228.      Select Case mode
  16229.      Case 1    'first time
  16230. 'we need to look for duplicate entries only if people have been invited
  16231. 'check RequiredAttendees
  16232.           If (vSendToNames(0) <> "") Then
  16233. 'initialize some variables
  16234.                Redim sNewNames(Ubound(vSendToNames))
  16235.                newcounter = 0               
  16236.                If (Isarray(OriginalRequired)) Then
  16237. 'required invitees already exist; copy them into a local variable                    
  16238.                     Redim vNewRequiredNames(Ubound(OriginalRequired) + Ubound(vSendToNames)+1)
  16239.                     Forall names In OriginalRequired
  16240.                          vNewRequiredNames(newcounter) = names
  16241.                          newcounter = newcounter+1
  16242.                     End Forall
  16243.                Else
  16244.                     Redim vNewRequiredNames(Ubound(vSendToNames))
  16245.                End If
  16246.                counter = 0
  16247.                Forall names In vSendToNames
  16248.                     Call GetNameComponents(Cstr(names),sCanonicalName,sDomainName)
  16249.                     bInviteeExists = FindInvitee(sCanonicalName)
  16250. 'if the invitee wasn't found, then add them keep them in the list and add them to the table
  16251.                     If (bInviteeExists = -1) Then
  16252.                          sNewNames(counter) = names
  16253.                          vNewRequiredNames(newcounter) = names                         
  16254.                          Call AddInviteeToInviteeTable(Cstr(names),"")
  16255.                          counter = counter + 1
  16256.                          newcounter = newcounter + 1
  16257.                     End If
  16258.                End Forall
  16259.                note.SendTo = sNewNames
  16260. 'we have to update the RequiredAttendees item so invitees can see who else has been invited               
  16261.                note.RequiredAttendees = vNewRequiredNames               
  16262.           End If
  16263. 'check OptionalAttendees
  16264.           If (vCopyToNames(0) <> "") Then
  16265. 'initialize some variables
  16266.                newcounter = 0               
  16267.                Redim sNewNames(Ubound(vCopyToNames))
  16268.                If (Isarray(OriginalOptional)) Then
  16269. 'optional invitees already exist; copy them into a local variable                    
  16270.                     Redim vNewOptionalNames(Ubound(OriginalOptional) + Ubound(vCopyToNames)+1)
  16271.                     Forall names In OriginalOptional
  16272.                          vNewOptionalNames(newcounter) = names
  16273.                          newcounter = newcounter+1
  16274.                     End Forall
  16275.                Else
  16276.                     Redim vNewOptionalNames(Ubound(vCopyToNames))
  16277.                End If
  16278.                counter = 0
  16279.                Forall names In vCopyToNames
  16280.                     Call GetNameComponents(Cstr(names),sCanonicalName,sDomainName)
  16281.                     bInviteeExists = FindInvitee(sCanonicalName)
  16282. 'if the invitee wasn't found, then add them keep them in the list and add them to the table
  16283.                     If (bInviteeExists = -1) Then
  16284.                          sNewNames(counter) = names
  16285.                          vNewOptionalNames(newcounter) = names                         
  16286.                          Call AddInviteeToInviteeTable(Cstr(names),"")
  16287.                          counter = counter + 1
  16288.                          newcounter = newcounter + 1
  16289.                     End If
  16290.                End Forall
  16291.                note.CopyTo = sNewNames
  16292.                note.OptionalAttendees = vNewOptionalNames
  16293.           End If
  16294.      Case 2     'second & final time being called
  16295. 'we need to update the RequiredAttendees and OptionalAttendees fields
  16296. 'first, update the RequiredAttendees item only if there are values in the SendTo item
  16297.           If (vSendToNames(0) <> "") Then
  16298. 'intialize variables
  16299.                newcounter = 0               
  16300.                If (Isarray(OriginalRequired)) Then
  16301. 'required invitees already exist; copy them into a local variable      
  16302.                     If (OriginalRequired(0) = "") And (Ubound(OriginalRequired) = 0) Then
  16303.                          Redim vNewRequiredNames(Ubound(vSendToNames))
  16304.                     Else                         
  16305.                          Redim vNewRequiredNames(Ubound(OriginalRequired) + Ubound(vSendToNames)+1)
  16306.                          Forall names In OriginalRequired
  16307.                               If (names <> "") Then
  16308.                                    vNewRequiredNames(newcounter) = names
  16309.                                    newcounter = newcounter+1
  16310.                               End If                         
  16311.                          End Forall
  16312.                     End If                    
  16313.                Else
  16314.                     Redim vNewRequiredNames(Ubound(vSendToNames))
  16315.                End If
  16316. 'add the sendto names
  16317.                Forall names In vSendToNames
  16318.                     If (names <> "") Then                    
  16319.                          vNewRequiredNames(newcounter) = names
  16320.                          newcounter = newcounter + 1
  16321.                     End If                    
  16322.                End Forall
  16323.                note.RequiredAttendees = vNewRequiredNames
  16324.           End If
  16325. 'update the OptionalAttendees item only if there are values in the CopyTo item
  16326.           If (vCopyToNames(0) <> "") Then
  16327. 'intialize variables
  16328.                newcounter = 0               
  16329.                If (Isarray(OriginalOptional)) Then
  16330. 'optional invitees already exist; copy them into a local variable                    
  16331.                     If (OriginalOptional(0) = "") And (Ubound(OriginalOptional) = 0) Then                    
  16332.                          Redim vNewOptionalNames(Ubound(vCopyToNames))
  16333.                     Else                         
  16334.                          Redim vNewOptionalNames(Ubound(OriginalOptional) + Ubound(vCopyToNames)+1)
  16335.                          Forall names In OriginalOptional
  16336.                               If (names <> "") Then                         
  16337.                                    vNewOptionalNames(newcounter) = names
  16338.                                    newcounter = newcounter+1
  16339.                               End If                         
  16340.                          End Forall
  16341.                     End If                    
  16342.                Else
  16343.                     Redim vNewOptionalNames(Ubound(vCopyToNames))
  16344.                End If
  16345. 'add the copyto names
  16346.                Forall names In vCopyToNames
  16347.                     If (names <> "") Then                    
  16348.                          vNewOptionalNames(newcounter) = names
  16349.                          newcounter = newcounter + 1
  16350.                     End If                    
  16351.                End Forall
  16352.                note.OptionalAttendees = vNewOptionalNames 
  16353.           End If   
  16354.      Case Else
  16355.      End Select
  16356.      Exit Sub
  16357.      
  16358. ErrorRoutine:
  16359.      Messagebox Error & " (BuildAttendeeList)"
  16360.      Exit Sub
  16361.      
  16362. End Sub
  16363. '++LotusScript Development Environment:2:2:SelectUserToRemove:1:8
  16364. Sub SelectUserToRemove
  16365.     *This routine is called whenever the user selects to remove people from a meeting
  16366.     *This routine displays a dialog box that allows the user to select those people 
  16367.      that should be removed
  16368.     *If people were selected, this routine calls RemoveInvitee to send out StatusUpdate notices
  16369. %END REM
  16370.      
  16371.      On Error Goto ErrorRoutine
  16372.      
  16373. 'first, get the status of the attendees
  16374.      If Not(HasInviteeInfo) Then Call GetInviteeStatus(note,False)
  16375.      If Not(HasBeenProcessed) Then Call ProcessInviteeTable(note)
  16376.      
  16377. 'get the list of people who can be uninvited 
  16378.      note.tmpAccepted = UsersAccepted
  16379.      note.tmpDeclined = UsersDeclined
  16380.      note.tmpDelegated = UsersDelegated
  16381.      note.tmpCountered = UsersCountered
  16382.      note.tmpWaiting = UsersWaiting
  16383.      note.tmpHeader = "Select the people you want to remove:"
  16384.      tmpPeopleList = Evaluate("@Trim(@Replace(tmpAccepted:tmpDeclined:tmpDelegated:tmpCountered:tmpWaiting;Uninvited;""""))",note)
  16385.      note.tmpPeopleList = tmpPeopleList
  16386.      
  16387. 'display the dialog so the user can select people
  16388.      If (ws.DialogBox("(PeopleListDlg)",True,True,False,False,False,False,"Remove Invitees") = True) Then
  16389. 'the user has uninvited people from the meeting
  16390.           If (note.HasItem("OrgRepeat")) Then
  16391.                Messagebox "The invitees selected will be removed for the current repeat instance only.",0,"Status"
  16392.                note.tmpRescheduleWhich = "0"
  16393.                note.RescheduleWhich = "0"
  16394.           End If
  16395. 'we can only remove people from the current repeat instance          
  16396. 'append the latest uninvited people to the uninvited field
  16397.           tmpUninvitedList = Evaluate("@Trim(@Unique(Uninvited : tmpPeopleSelected))",note)
  16398.           note.Uninvited = tmpUninvitedList
  16399.           If(note.tmpPeopleSelected(0) <> "") Then Call RemoveInvitee
  16400.           Call uidoc.Save
  16401.           note.removeitem("tmpRescheduleWhich")
  16402.           note.RemoveItem("RescheduleWhich")
  16403.           Call MarkTempFields(note)
  16404.           Call note.Save(True,True,True)
  16405.      End If
  16406.      Exit Sub
  16407.      
  16408. ErrorRoutine:
  16409.      Messagebox Error & " (SelectUserToRemove)"
  16410.      Exit Sub
  16411. End Sub
  16412. '++LotusScript Development Environment:2:2:ChangeStatus:1:8
  16413. Sub ChangeStatus
  16414.     *This routine is called whenever the user wants to require that an invitee attend a meeting
  16415.     *This routine displays a dialog box that allows the user to select those people 
  16416.      that should be required to attend
  16417.     *This routine sends a StatusUpdate notice to the specified user with the OrgStatus item
  16418.        set to ORS_STATUS_ACCEPTED
  16419. %END REM
  16420.      Dim nIndex As Integer
  16421.      
  16422.      On Error Goto ErrorRoutine
  16423. 'first, get the status of the attendees
  16424.      If Not(HasInviteeInfo) Then Call GetInviteeStatus(note,False)
  16425.      If Not(HasBeenProcessed) Then Call ProcessInviteeTable(note)
  16426.      
  16427.      note.tmpHeader = "Select the people you want to Accept:"
  16428.      
  16429.      note.tmpAccepted = UsersAccepted
  16430.      note.tmpDeclined = UsersDeclined
  16431.      note.tmpDelegated = UsersDelegated
  16432.      note.tmpCountered = UsersCountered
  16433.      note.tmpWaiting = UsersWaiting
  16434.      
  16435.      tmpPeopleList = Evaluate("@Trim(@Replace(tmpDeclined:tmpDelegated:tmpCountered:tmpWaiting;tmpAccepted:Uninvited;""""))",note)
  16436.      note.tmpPeopleList = tmpPeopleList    
  16437. 'clear out the tmpAction item
  16438.      note.tmpAction = ""
  16439. 'display the dialog so the user can select people
  16440.      If (ws.DialogBox("(PeopleListDlg)",True,True,False,False,False,False,"Change Status") = True) Then
  16441. 'the user has selected people 
  16442.           tmpChangeList = note.tmpPeopleSelected
  16443. 'for everyone selected, do the following          
  16444.              If (tmpChangeList(0) <> "") Then
  16445.                   Forall cs In tmpChangeList
  16446. 'create the change status notice and send it out               
  16447.                           Call CreateNoticeDocument("You are required to attend this appointment - ",ORS_MSGTYPE_STATUSUPDATE,36,1)
  16448.                           notice.OrgStatus = ORS_STATUS_ACCEPTED
  16449.                     nIndex = FindInvitee(Cstr(cs))
  16450.                     If (nIndex = -1) Then
  16451.                          notice.SendTo = Cstr(cs)
  16452.                     Else
  16453.                          If (InviteeList(nIndex).Domain <> "") Then
  16454.                               notice.SendTo = InviteeList(nIndex).InviteeName & "@" & InviteeList(nIndex).Domain
  16455.                          Else
  16456.                               notice.SendTo = InviteeList(nIndex).InviteeName                        
  16457.                          End If
  16458.                          InviteeList(nIndex).Status = ORS_MSGTYPE_ACCEPT
  16459.                          InviteeList(nIndex).KeepPosted = "1"
  16460.                     End If
  16461.                     Call notice.Send(False)
  16462. 'create the acceptance notice (as if it had come from the invitee)
  16463.                           Call CreateNoticeDocument("Accepted - ",ORS_MSGTYPE_ACCEPT,83,1)
  16464. 'update specific fields
  16465.                           notice.Subject = "Accepted - " & notice.Topic(0)
  16466.                           notice.Principal = cs
  16467.                           notice.InviteeName = cs
  16468.                     If (nIndex > -1) Then
  16469.                          If (InviteeList(nIndex).Domain <> "") Then note.FromDomain = InviteeList(nIndex).Domain
  16470.                     End If
  16471.                     notice.Chair = Owner
  16472.                     notice.PostedDate = Now()
  16473.                           Call notice.Save(True,True,True)
  16474.                   End Forall
  16475.                   Messagebox "A Change Status notice has been sent to the people selected.",0,"Status"
  16476.              End If       
  16477.      End If
  16478.      
  16479.      Exit Sub
  16480.      
  16481. ErrorRoutine:
  16482.      Messagebox Error & " (ChangeStatus)"
  16483.      Exit Sub     
  16484. End Sub
  16485. '++LotusScript Development Environment:2:2:RollbackAppointment:1:8
  16486. Sub RollbackAppointment(BusyPriority As String)
  16487.     *This routine is called from SendInvitation for one of two reasons
  16488.      Either the uidoc.Send failed and we need to get the original values
  16489.      Or the uidoc.Send was successful and we are modifying the note/uidoc to be a meeting
  16490.     *This routine changes a meeting invitation notice back into an appointment document
  16491. %END REM
  16492.      
  16493.      note.Form = "Appointment"
  16494.      note.Subject = note.Topic
  16495.      note.CalendarDateTime = note.StartDateTime
  16496.      note.tmpOwner = Owner
  16497.      note.OrgTable = ORS_ITEM_CALENDAR
  16498.      tmpRequiredAttendees = Evaluate("@Trim(@Replace(RequiredAttendees;SendTo;""""))",note)
  16499.      tmpOptionalAttendees = Evaluate("@Trim(@Replace(OptionalAttendees;CopyTo;""""))",note)
  16500.      note.RequiredAttendees = tmpRequiredAttendees
  16501.      note.OptionalAttendees = tmpOptionalAttendees
  16502.      Call note.RemoveItem("MailOptions")
  16503. 'we only add the $BusyName if this is not the repeat parent
  16504.      If Not(note.HasItem("RepeatIds")) Then Call note.ReplaceItemValue("$BusyName",Owner)
  16505.      Call note.ReplaceItemValue("$BusyPriority",BusyPriority)
  16506.      Call note.ReplaceItemValue("_ViewIcon",158)
  16507.      Call note.RemoveItem("Topic")
  16508.      Call note.RemoveItem("NoticeType")
  16509.      note.tmpAction = ""
  16510. End Sub
  16511. tmpAccepted
  16512. tmpDeclined
  16513. tmpDelegated
  16514. tmpCountered
  16515. tmpWaiting
  16516. Uninvited
  16517.     0S0E
  16518. Uninvited
  16519. tmpPeopleSelected
  16520.     5S6S
  16521. tmpDeclined
  16522. tmpDelegated
  16523. tmpCountered
  16524. tmpWaiting
  16525. tmpAccepted
  16526. Uninvited
  16527.     0S0E
  16528. RequiredAttendees
  16529. SendTo
  16530.     0S0E
  16531. OptionalAttendees
  16532. CopyTo
  16533.     0S0E
  16534. O=Lotus Notes
  16535. O=Lotus Notes
  16536. PURSAFO
  16537. |.:#U
  16538. O=Lotus Notes
  16539. CN=Lotus Notes Template Development/O=Lotus Notes
  16540. PURSAFO
  16541. Fde!f^^
  16542. $ScriptLib
  16543. $ScriptLib_O
  16544. $TITLE
  16545. $Flags
  16546. $PublicAccess
  16547. '++LotusScript Development Environment:2:5:(Options):0:74
  16548. Option Public
  16549. Use "SharedWorkflowLibrary"
  16550. '++LotusScript Development Environment:2:5:(Forward):0:1
  16551. Declare Sub Initialize
  16552. Declare Sub CreateInviteeTable(pNote As NotesDocument)
  16553. Declare Sub IncreaseInviteeTable()
  16554. Declare Sub DecreaseInviteeTable()
  16555. Declare Sub GetNameComponents(pInviteeName As String,pRetCanonicalName As String,pRetDomain As String)
  16556. Declare Function FindInvitee(pInviteeName As String) As Integer
  16557. Declare Sub AddInviteeToInviteeTable(pInviteeName As String,pState As String)
  16558. Declare Sub GetInviteeResponseInfo(pNote As NotesDocument)
  16559. Declare Function CanUpdateInviteeInfo(Byval nIndex As Integer) As Integer
  16560. Declare Sub AddDelegeeToInviteeTable()
  16561. Declare Sub UpdateInviteeInfo(Byval nIndex As Integer)
  16562. Declare Sub AddInviteeResponseToInviteeTable()
  16563. Declare Sub BuildInviteeResponsesList(pNote As NotesDocument)
  16564. Declare Sub GetInviteeStatus(pNote As NotesDocument,Byval nForce As Integer)
  16565. Declare Sub ProcessInviteeTable(pNote As NotesDocument)
  16566. Declare Sub GetMailingList()
  16567. Declare Sub AcceptCounterProposal 
  16568. Declare Sub DeclineCounterProposal
  16569. Declare Sub AddUninvitedToInviteeList()
  16570. Declare Function GetInviteeMailAddress(pName As String) As String
  16571. '++LotusScript Development Environment:2:5:(Declarations):0:10
  16572. Dim InviteeList() As InviteeTable
  16573. Dim InviteeResponseInfo As InviteeTable
  16574. Dim HasBeenProcessed As Integer
  16575. Dim HasInviteeInfo As Integer
  16576. Dim InviteeCounter As Integer
  16577. Dim InviteeMaxEntries As Integer
  16578. Dim UsersAccepted() As String
  16579. Dim UsersDeclined() As String
  16580. Dim UsersDelegated() As String
  16581. Dim UsersCountered() As String
  16582. Dim UsersWaiting() As String
  16583. Dim ResourcesReserved() As String
  16584. Dim ResourcesDeclined() As String
  16585. Dim ResourcesWaiting() As String
  16586. Dim Delegees() As String
  16587. Dim MailingList() As String
  16588. Dim NumKeepPosted As Integer
  16589. Dim UpdatedInvitees As Variant
  16590. Dim numAccepted As Integer
  16591. Dim numDeclined As Integer
  16592. Dim numDelegated As Integer
  16593. Dim numCountered As Integer
  16594. Dim numWaiting As Integer
  16595. Dim numResAccepted As Integer
  16596. Dim numResDeclined As Integer
  16597. Dim numResWaiting As Integer 
  16598. '++LotusScript Development Environment:2:2:Initialize:1:10
  16599. Sub Initialize
  16600.      
  16601. End Sub
  16602. '++LotusScript Development Environment:2:2:CreateInviteeTable:1:8
  16603. Sub CreateInviteeTable(pNote As NotesDocument)
  16604.      Dim RequiredAttendees As Variant
  16605.      Dim OptionalAttendees As Variant
  16606.      Dim Resources As Variant
  16607.      Dim Room As String
  16608.      
  16609.         InviteeMaxEntries = CS_INVITEE_INDEX
  16610.         InviteeCounter = 0
  16611.         HasInviteeInfo = False
  16612.         HasBeenProcessed = False
  16613.      
  16614.      Redim InviteeList(InviteeMaxEntries)
  16615.      
  16616.      RequiredAttendees = pNote.RequiredAttendees
  16617.      OptionalAttendees = pNote.OptionalAttendees
  16618.      Resources = pNote.RequiredResources
  16619.      Room = pNote.Room(0)
  16620.      
  16621. 'initialize the invitee table to values that exist on the passed in note
  16622.      If (RequiredAttendees(0) <> "") Then
  16623.           Forall names In RequiredAttendees
  16624.                Call AddInviteeToInviteeTable(Cstr(names),"")
  16625.           End Forall
  16626.      End If
  16627.      If (OptionalAttendees(0) <> "") Then
  16628.           Forall names In OptionalAttendees
  16629.                Call AddInviteeToInviteeTable(Cstr(names),"")
  16630.           End Forall          
  16631.      End If
  16632.      
  16633.      If (pNote.Uninvited(0) <> "") Then Call AddUninvitedToInviteeList
  16634.      
  16635.      If (Room <> "") Then Call AddInviteeToInviteeTable(Room,ORS_STATE_ROOM)
  16636.      
  16637.      If (Resources(0) <> "") Then
  16638.           Forall names In Resources
  16639.                Call AddInviteeToInviteeTable(Cstr(names),ORS_STATE_RESOURCE)
  16640.           End Forall
  16641.      End If
  16642. End Sub
  16643. '++LotusScript Development Environment:2:2:IncreaseInviteeTable:1:8
  16644. Sub IncreaseInviteeTable()
  16645.      
  16646.         InviteeMaxEntries = InviteeMaxEntries + CS_INVITEE_INDEX
  16647.      Redim Preserve InviteeList(InviteeMaxEntries)
  16648. End Sub
  16649. '++LotusScript Development Environment:2:2:DecreaseInviteeTable:1:8
  16650. Sub DecreaseInviteeTable()
  16651.         InviteeMaxEntries = InviteeCounter
  16652.      Redim Preserve InviteeList(InviteeMaxEntries)
  16653. End Sub
  16654. '++LotusScript Development Environment:2:2:GetNameComponents:1:8
  16655. Sub GetNameComponents(pInviteeName As String,pRetCanonicalName As String,pRetDomain As String)
  16656.      
  16657.      Dim pos As Integer
  16658.      
  16659.      
  16660.      pos = Instr(pInviteeName,"@")
  16661.      
  16662.      If(pos > 0) Then
  16663.           Set nam = New NotesName(Left$(pInviteeName,pos-1))     
  16664.           pRetCanonicalName = nam.Canonical
  16665.           pRetDomain = Right$(pInviteeName,Len(pInviteeName)-pos)
  16666.      Else
  16667.           Set nam = New NotesName(pInviteeName)     
  16668.           pRetCanonicalName = nam.Canonical
  16669.           pRetDomain = ""
  16670.      End If
  16671. End Sub
  16672. '++LotusScript Development Environment:2:1:FindInvitee:1:8
  16673. Function FindInvitee(pInviteeName As String) As Integer
  16674.     *Given an InviteeTable and an invitee name find the index position
  16675.     *Returns -1 if the user cannot be found
  16676. %END REM
  16677.      Dim key As New NotesName(pInviteeName)
  16678.         Dim x As Integer
  16679.      
  16680.         For x = 0 To (InviteeCounter - 1)
  16681.           Set findname = New NotesName(InviteeList(x).InviteeName)
  16682. 'do a canonical name comparison
  16683.           If Lcase(key.Canonical) = Lcase(findname.Canonical) Then
  16684.                         FindInvitee = x    
  16685.                Exit Function
  16686. 'do a common name comparison               
  16687.           Elseif Lcase(key.Common) = Lcase(findname.Common) Then
  16688.                FindInvitee = x 
  16689.                Exit Function               
  16690.                 End If
  16691.         Next
  16692.      
  16693.         FindInvitee = -1
  16694. End Function
  16695. '++LotusScript Development Environment:2:2:AddInviteeToInviteeTable:1:8
  16696. Sub AddInviteeToInviteeTable(pInviteeName As String,pState As String)
  16697.     *Adds an existing invitee to the invitee table
  16698. %END REM
  16699.      Dim CanonicalName As String
  16700.      Dim domain As String
  16701.      
  16702.      
  16703.     'see if we need to increase the invitee table
  16704.         If(InviteeCounter = InviteeMaxEntries) Then Call IncreaseInviteeTable()
  16705.      
  16706.     'get the canonical and domain name from the inviteename
  16707.         Call GetNameComponents(pInviteeName,CanonicalName,Domain)
  16708.      
  16709.      InviteeList(InviteeCounter).InviteeName = CanonicalName
  16710.      InviteeList(InviteeCounter).Status = ORG_STATUS_WAITING
  16711.      InviteeList(InviteeCounter).State = pState
  16712.      InviteeList(InviteeCounter).KeepPosted = "1"
  16713.      
  16714.      If(Domain <> "") Then InviteeList(InviteeCounter).Domain = Domain
  16715.      
  16716.      NumKeepPosted = NumKeepPosted + 1
  16717.      InviteeCounter = InviteeCounter + 1
  16718.      If (pState <> "") Then
  16719.           numResWaiting = numResWaiting + 1
  16720.      Else
  16721.           numWaiting = numWaiting + 1
  16722.      End If
  16723. End Sub
  16724. '++LotusScript Development Environment:2:2:GetInviteeResponseInfo:1:8
  16725. Sub GetInviteeResponseInfo(pNote As NotesDocument)
  16726.      
  16727.         InviteeResponseInfo.CreationDate = pNote.Created
  16728.         InviteeResponseInfo.SequenceNum = pNote.SequenceNum(0)
  16729.         InviteeResponseInfo.InviteeName = pNote.Principal(0)
  16730.         If pNote.HasItem("FromDomain") Then
  16731.                 InviteeResponseInfo.Domain = pNote.FromDomain(0)
  16732.         Else
  16733.                 InviteeResponseInfo.Domain = ""
  16734.         End If
  16735.         
  16736.         If pNote.HasItem("OrgState") Then 
  16737.                 InviteeResponseInfo.State = pNote.OrgState(0)
  16738.         Else
  16739.                 InviteeResponseInfo.State = ""
  16740.         End If
  16741.      
  16742.      InviteeResponseInfo.Status = pNote.NoticeType(0)
  16743.      
  16744.      Select Case InviteeResponseInfo.Status
  16745.      Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
  16746.           InviteeResponseInfo.KeepPosted = "1"
  16747.      Case ORS_MSGTYPE_REJECT
  16748.           InviteeResponseInfo.KeepPosted = ""
  16749.      Case ORS_MSGTYPE_COUNTER
  16750.           InviteeResponseInfo.KeepPosted = "1"
  16751.      Case ORS_MSGTYPE_DELEGATING
  16752.           InviteeResponseInfo.KeepPosted = ""
  16753.           InviteeResponseInfo.Delegee = pNote.Delegee(0)
  16754.           Call AddDelegeeToInviteeTable
  16755.      End Select
  16756. End Sub 
  16757. '++LotusScript Development Environment:2:1:CanUpdateInviteeInfo:1:8
  16758. Function CanUpdateInviteeInfo(Byval nIndex As Integer) As Integer
  16759.     *Determines if InviteeRepsonseInfo should be updated in InviteeTable
  16760. %END REM
  16761.      
  16762. 'if the sequencenum is greater than the existing one, we can add them
  16763.      If (InviteeList(nIndex).Status = ORS_STATUS_REMOVED) Then
  16764.           CanUpdateInviteeInfo = False
  16765.           Exit Function
  16766.      End If
  16767.      If (InviteeResponseInfo.SequenceNum > InviteeList(nIndex).SequenceNum) Then
  16768.                 CanUpdateInviteeInfo = True
  16769.                 Exit Function
  16770.      Elseif (InviteeResponseInfo.SequenceNum = InviteeList(nIndex).SequenceNum) Then
  16771. 'the SequeceNum items are equal; compare creation date
  16772.           If (InviteeResponseInfo.CreationDate > InviteeList(nIndex).CreationDate.LSLocalTime) Then
  16773.                         CanUpdateInviteeInfo = True
  16774.                         Exit Function
  16775.                 Else
  16776.                         CanUpdateInviteeInfo = False
  16777.                         Exit Function
  16778.                 End If
  16779.         End If
  16780.      
  16781. 'if we made it this far, then we can't update the inviteetable
  16782.         CanUpdateInviteeInfo = False
  16783. End Function
  16784. '++LotusScript Development Environment:2:2:AddDelegeeToInviteeTable:1:8
  16785. Sub AddDelegeeToInviteeTable()
  16786.      
  16787.      Dim CanonicalName As String
  16788.      Dim Domain As String
  16789.         Dim nIndex As Integer
  16790.      
  16791. 'get the name components
  16792.         Call GetNameComponents(InviteeResponseInfo.Delegee,CanonicalName,Domain)
  16793.      
  16794. 'set the domain
  16795.         If (Domain = "") Then
  16796.                 If(InviteeResponseInfo.Domain <> "") Then Domain = InviteeResponseInfo.Domain
  16797.         End If
  16798.         
  16799.      nIndex = FindInvitee(CanonicalName)
  16800.      
  16801.         If (nIndex = -1) Then
  16802. 'we didn't find the delegee -> this is the more likely case since we would only find the delegee
  16803. 'if they had replied before we had received the delegation notice
  16804.              
  16805. 'make sure we can add the delegee
  16806.                 If (InviteeCounter = InviteeMaxEntries) Then Call IncreaseInviteeTable()
  16807.           Set InviteeList(InviteeCounter).CreationDate = New NotesDateTime(InviteeResponseInfo.CreationDate)
  16808.           InviteeList(InviteeCounter).SequenceNum = InviteeResponseInfo.SequenceNum
  16809.           InviteeList(InviteeCounter).InviteeName = CanonicalName
  16810.           InviteeList(InviteeCounter).Domain = Domain
  16811.           InviteeList(InviteeCounter).Status = ORG_STATUS_WAITING
  16812.           InviteeList(InviteeCounter).State = ""
  16813.           InviteeList(InviteeCounter).Delegee = ""
  16814.           InviteeList(InviteeCounter).KeepPosted = "1"
  16815.           InviteeCounter = InviteeCounter + 1
  16816.      Else
  16817. 'the delegee already exists in the table
  16818. 'make sure we can update their info
  16819.                 If (CanUpdateInviteeInfo(nIndex)) Then
  16820.                Set InviteeTable.CreationDate(nIndex) = New NotesDateTime(InviteeResponseInfo.CreationDate)
  16821.                InviteeList(nIndex).SequenceNum = InviteeResponseInfo.SequenceNum
  16822.                InviteeList(nIndex).InviteeName = CanonicalName
  16823.                InviteeList(nIndex).Domain = Domain
  16824.                InviteeList(nIndex).Status = InviteeResponseInfo.Status
  16825.                InviteeList(nIndex).State = ""
  16826.                InviteeList(nIndex).Delegee = ""
  16827.                InviteeList(nIndex).KeepPosted = "1"
  16828.           End If 
  16829.      End If
  16830. End Sub
  16831. '++LotusScript Development Environment:2:2:UpdateInviteeInfo:1:8
  16832. Sub UpdateInviteeInfo(Byval nIndex As Integer)
  16833.      Dim IsPerson As Integer
  16834.      
  16835.      Set InviteeList(nINdex).CreationDate = New NotesDateTime(InviteeResponseInfo.CreationDate)
  16836.      InviteeList(nIndex).SequenceNum = InviteeResponseInfo.SequenceNum
  16837.      InviteeList(nIndex).InviteeName = InviteeResponseInfo.InviteeName
  16838.      InviteeList(nIndex).Domain = InviteeResponseInfo.Domain
  16839.      InviteeList(nIndex).Status = InviteeResponseInfo.Status
  16840.      InviteeList(nIndex).State = InviteeResponseInfo.State
  16841.      InviteeList(nIndex).Delegee = InviteeResponseInfo.Delegee
  16842.      InviteeList(nIndex).KeepPosted = InviteeResponseInfo.KeepPosted
  16843.      If (InviteeResponseInfo.KeepPosted = "1") Then NumKeepPosted = NumKeepPosted + 1
  16844.      
  16845.      If (InviteeResponseInfo.State <> "") Then
  16846.           IsPerson  = False
  16847.      Else
  16848.           IsPerson = True
  16849.      End If
  16850.      
  16851.      Select Case InviteeResponseInfo.Status
  16852.      Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
  16853.           If (IsPerson) Then          
  16854.                numAccepted = numAccepted+1
  16855.           Else
  16856.                numResAccepted = numResAccepted + 1
  16857.           End If
  16858.      Case ORS_MSGTYPE_REJECT
  16859.           If (IsPerson) Then          
  16860.                numDeclined = numDeclined+1
  16861.           Else
  16862.                numResDeclined = numResDeclined + 1
  16863.           End If
  16864.      Case ORS_MSGTYPE_COUNTER
  16865.           numCountered = numCountered+1
  16866.      Case ORS_MSGTYPE_DELEGATING
  16867.           numDelegated = numDelegated+1
  16868.      Case ORG_STATUS_WAITING
  16869.           If (IsPerson) Then          
  16870.                numWaiting = numWaiting + 1
  16871.           Else
  16872.                numResWaiting = numResWaiting + 1
  16873.           End If
  16874.      End Select
  16875. End Sub
  16876. '++LotusScript Development Environment:2:2:AddInviteeResponseToInviteeTable:1:8
  16877. Sub AddInviteeResponseToInviteeTable()
  16878.      
  16879.      If (InviteeCounter = InviteeMaxEntries) Then Call IncreaseInviteeTable()
  16880.            Call UpdateInviteeInfo(InviteeCounter)        
  16881.            InviteeCounter = InviteeCounter + 1
  16882. End Sub
  16883. '++LotusScript Development Environment:2:2:BuildInviteeResponsesList:1:8
  16884. Sub BuildInviteeResponsesList(pNote As NotesDocument)
  16885.     *Gets the most recent reply from an invitee
  16886. %END REM
  16887.      
  16888.         Dim responses As NotesDocumentCollection
  16889.         Dim nIndex As Integer
  16890.         Dim reply As NotesDocument
  16891.      
  16892. 'first, get a collection of responses to process
  16893.         Set responses = pNote.Responses
  16894.      
  16895.         If(responses.Count = 0) Then Exit Sub
  16896.      
  16897.         Set reply = responses.GetFirstDocument()
  16898.      
  16899.         While Not(reply Is Nothing)    
  16900.                 If(reply.Form(0) = "Notice") Then
  16901. 'get the response items
  16902.                Call GetInviteeResponseInfo(reply)
  16903. 'see if the invitee exists or not
  16904.                nIndex = FindInvitee(InviteeResponseInfo.InviteeName)
  16905.                      
  16906.                         If(nIndex = -1) Then
  16907. 'the user was not found, so we need to add them
  16908.                                 Call AddInviteeResponseToInviteeTable()
  16909.                         Else
  16910. 'the user was found; update their info if we can
  16911.                     If (CanUpdateInviteeInfo(nIndex)) Then Call UpdateInviteeInfo(nIndex)
  16912.                         End If
  16913.                 End If
  16914. 'get the next reply
  16915.                 Set reply = responses.GetNextDocument(reply)
  16916.         Wend        
  16917. End Sub
  16918. '++LotusScript Development Environment:2:2:GetInviteeStatus:1:8
  16919. Sub GetInviteeStatus(pNote As NotesDocument,Byval nForce As Integer)
  16920.     *This routine will build the invitee response table, and then fill global array values
  16921.         with the result
  16922.     *If the table has already been built by a different function and nForce is not True
  16923.         then the cached table will be returned
  16924. %END REM
  16925.      
  16926.         If (nForce) Then
  16927. 'we want to update the table regardless of the state
  16928.           Call BuildInviteeResponsesList(pNote)
  16929.                 HasInviteeInfo = True
  16930. 'only build the table if it isn't cached
  16931. 'it would be cached if a different calling function already built the table
  16932.         Elseif Not(HasInviteeInfo) Then
  16933.           Call BuildInviteeResponsesList(pNote)
  16934.                 HasInviteeInfo = True
  16935.         Else
  16936. 'the table is already uptodate; exit this function
  16937.                 Exit Sub
  16938.         End If
  16939.      
  16940. End Sub
  16941. '++LotusScript Development Environment:2:2:ProcessInviteeTable:1:8
  16942. Sub ProcessInviteeTable(pNote As NotesDocument)
  16943.      
  16944. 'now that we've built the table, iterate through it and fill in the various items
  16945.         Redim UsersAccepted(numAccepted)
  16946.         Redim UsersDeclined(numDeclined)
  16947.         Redim UsersDelegated(numDelegated)
  16948.      Redim Delegees(numDelegated)     
  16949.      Redim UsersCountered(numCountered)
  16950.         Redim UsersWaiting(numWaiting)
  16951.      Redim ResourcesReserved(numResAccepted)
  16952.         Redim ResourcesDeclined(numResDeclined)
  16953.         Redim ResourcesWaiting(numResWaiting)
  16954.      
  16955.         numAccepted = 0
  16956.         numDeclined = 0
  16957.         numDelegated = 0
  16958.         numCountered = 0
  16959.         numWaiting = 0
  16960.      numResAccepted = 0
  16961.         numResDeclined = 0
  16962.         numResWaiting = 0
  16963.      
  16964.         Dim x As Integer
  16965.      
  16966.         For x = 0 To (InviteeCounter - 1)
  16967.                 
  16968.           Select Case InviteeList(x).Status
  16969.           Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
  16970.                If (InviteeList(x).SequenceNum < pNote.SequenceNum(0)) Then
  16971. 'if this is a person, then we are still waiting to here back from them                    
  16972.                     If(InviteeList(x).State = "") Then
  16973.                          UsersWaiting(numWaiting) = InviteeList(x).InviteeName
  16974.                          numWaiting = numWaiting + 1
  16975.                     Else
  16976. 'this is a room/resource; we are still waiting to here back from them
  16977.                          ResourcesWaiting(numResWaiting) = InviteeList(x).InviteeName
  16978.                          numResWaiting = numResWaiting + 1
  16979.                                 End If
  16980.                         Else
  16981.                     If(InviteeList(x).State <> "") Then
  16982. 'this is a room or resource; see if it has been removed
  16983.                          If Not(IsRemoved(InviteeList(x).InviteeName,InviteeList(x).State)) Then
  16984.                               ResourcesReserved(numResAccepted) = InviteeList(x).InviteeName
  16985.                               numResAccepted = numResAccepted + 1
  16986.                                         End If
  16987.                                 Else
  16988. 'this is a person
  16989.                          UsersAccepted(numAccepted) = InviteeList(x).InviteeName
  16990.                                         numAccepted = numAccepted+1
  16991.                                 End If
  16992.                         End If
  16993.                 Case ORS_MSGTYPE_REJECT
  16994.                If(InviteeList(x).State <> "") Then
  16995. 'if this is a room or resource, see if it has been removed           
  16996.                     If Not(IsRemoved(InviteeList(x).InviteeName,InviteeList(x).State)) Then
  16997. 'if the sequencenum of the response is < pNote, then the resource has not responded
  16998.                          If (InviteeList(x).SequenceNum < pNote.SequenceNum(0)) Then
  16999.                               ResourcesWaiting(numResWaiting) = InviteeList(x).InviteeName                         
  17000.                               numResWaiting = numResWaiting + 1
  17001.                          Else                         
  17002.                               ResourcesDeclined(numResDeclined) = InviteeList(x).InviteeName
  17003.                                              numResDeclined = numResDeclined + 1
  17004.                          End If                         
  17005.                     End If
  17006.                         Else
  17007. 'this is a person
  17008.                     UsersDeclined(numDeclined) = InviteeList(x).InviteeName
  17009.                     numDeclined = numDeclined+1
  17010.                         End If
  17011.           Case ORS_MSGTYPE_COUNTER
  17012.                If (InviteeList(x).SequenceNum < pNote.SequenceNum(0)) Then
  17013.                     UsersWaiting(numWaiting) = InviteeList(x).InviteeName
  17014.                                    numWaiting = numWaiting + 1
  17015.                Else
  17016. 'this is a person -> Resources cannot CounterPropose!!!
  17017.                     UsersCountered(numCountered) = InviteeList(x).InviteeName
  17018.                                 numCountered = numCountered+1
  17019.                         End If
  17020.                 Case ORS_MSGTYPE_DELEGATING
  17021. 'this is a person -> Resources cannot Delegate!!!
  17022.                UsersDelegated(numDelegated) = InviteeList(x).InviteeName
  17023.                Delegees(numDelegated) = InviteeList(x).Delegee
  17024.                numDelegated = numDelegated+1
  17025.           Case ORG_STATUS_WAITING
  17026. 'we didn't get any reply from this invitee
  17027.                If(InviteeList(x).State <> "") Then
  17028. 'this is a resource
  17029.                     ResourcesWaiting(numResWaiting) = InviteeList(x).InviteeName
  17030.                                 numResWaiting = numResWaiting + 1
  17031.                         Else
  17032. 'this is a person
  17033.                     UsersWaiting(numWaiting) = InviteeList(x).InviteeName
  17034.                                 numWaiting = numWaiting + 1
  17035.                End If
  17036.           End Select
  17037.         Next    
  17038.         HasBeenProcessed = True
  17039. End Sub
  17040. '++LotusScript Development Environment:2:2:GetMailingList:1:8
  17041. Sub GetMailingList()
  17042.     *Gets the latest list of people who should receive an update
  17043.         Reschedule,Cancel,Confirmation
  17044. %END REM
  17045.         Dim x,counter As Integer
  17046.      
  17047. 'if this is a Repeating Meeting, we only need to get the invitees of the parent document
  17048.         If (note.HasItem("OrgRepeat")) Then
  17049. 'if this hasn't been cached, then we need to get both the parent and this instance's responses
  17050.           If Not(HasInviteeInfo) Then
  17051.                         Call GetInviteeStatus(ParentNote,False)
  17052.                         Call GetInviteeStatus(Note,True)
  17053.                 End If
  17054.      Else
  17055.                 Call GetInviteeStatus(note,False)
  17056.      End If
  17057.      
  17058. 'anyone who has accepted, countered, or is waiting, we need to send them the notice
  17059.      If (numKeepPosted = 0) Then 
  17060.           Redim MailingList(0)
  17061.           MailingList(0) = ""
  17062.           Exit Sub
  17063.      End If 
  17064.      
  17065.      Redim MailingList(numKeepPosted-1)
  17066.      
  17067.      For x = 0 To (InviteeCounter-1)
  17068. 'make sure we have a person; rooms and resources are handled separately
  17069.           If (InviteeList(x).State = "") Then
  17070.                If (InviteeList(x).KeepPosted = "1") Then               
  17071.                     If(InviteeList(x).Domain <> "") Then
  17072.                          MailingList(counter) = InviteeList(x).InviteeName & "@" & InviteeList(x).Domain
  17073.                                 Else
  17074.                          MailingList(counter) = InviteeList(x).InviteeName
  17075.                                 End If
  17076.                                 counter = counter + 1
  17077.                End If                    
  17078.           End If
  17079.      Next
  17080. End Sub
  17081. '++LotusScript Development Environment:2:2:AcceptCounterProposal:1:8
  17082. Sub AcceptCounterProposal 
  17083.  *This routine is called whenever the chair accepts a counter proposal
  17084.  *This routine increments the SequenceNum item and sends Reschedule notices
  17085.   to all people, room, and resources
  17086.  *The parentnote is updated to reflect the changes, since the current note object is the 
  17087.   notice document and not the chair's meeting document
  17088. %END REM
  17089.      
  17090.      Dim StartDateTime As Variant
  17091.      Dim EndDateTime As Variant
  17092.      Dim NewRoom As String
  17093.      Dim OldRoom As String
  17094.      
  17095.      
  17096.      On Error Resume Next
  17097.      
  17098.      Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
  17099. 'make sure we have a parentnote object; if we don't, then exit this routine
  17100.      If (parentnote Is Nothing) Then Exit Sub
  17101.      
  17102.      Set trdr = session.CreateDateRange
  17103.      
  17104.      trdr.Text = uidoc.FieldGetText("NewTimeRange")
  17105.      
  17106.      Set startdt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.StartDateTime.TimeOnly)
  17107.      Set enddt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.EndDateTime.TimeOnly)
  17108.      
  17109.      Call CreateNoticeDocument("",ORS_MSGTYPE_RESCHEDULE,33,1)
  17110.      
  17111. 'add the items specific to the reschedule; this will overwrite items already set be the CreateNoticeDocument routine
  17112.      Set notice.StartDateTime = startdt
  17113.      Set notice.EndDateTime = enddt
  17114.      Set notice.StartDate =startdt
  17115.      
  17116.      NewRoom = note.NewRoom(0)
  17117.      OldRoom = parentnote.Room(0)
  17118.      
  17119. 'if the new room has a value, use it     
  17120.      If (NewRoom <> "") Then
  17121.           notice.Subject = "Reschedule- " & note.Topic(0) & " (" & GetSubjectText(startdt.LSLocalTime) & " in " & NewRoom & ")"
  17122.           parentnote.OriginalRoom = OldRoom
  17123.           notice.Room = NewRoom
  17124. 'if the old room has a value, use it
  17125.      Elseif (OldRoom <> "") Then
  17126.           notice.Subject = "Reschedule- "& note.Topic(0) & " (" & GetSubjectText(startdt.LSLocalTime) & " in " & OldRoom & ")"
  17127.           notice.Room = OldRoom
  17128.      Else
  17129.           notice.Subject = "Reschedule- " & note.Topic(0) & " (" & GetSubjectText(startdt.LSLocalTime) & ")"
  17130.      End If
  17131.      
  17132.      notice.Topic = note.Topic
  17133.      notice.Chair = Owner
  17134.      
  17135. 'we need to add the correct attendees to the sendto item
  17136.      
  17137.      Call CreateInviteeTable(parentnote)
  17138.      
  17139.      Call GetInviteeStatus(parentnote,False)
  17140.      Call ProcessInviteeTable(parentnote)
  17141.      Call GetMailingList
  17142.      
  17143. 'make sure we have a valid mailing list -> we should but we need to make sure just in case
  17144.      If (MailingList(0) = "") Then Exit Sub     
  17145.      notice.SendTo = MailingList
  17146.      
  17147. 'call the routine that updates the parentnote with the appropriate values
  17148.      Call UpdateOriginalInvitation(parentnote)
  17149.      
  17150.      notice.SequenceNum = parentnote.SequenceNum(0)
  17151.      Call notice.Send(False)
  17152.      Messagebox "The invitees have been notified of the change.",0,"Status"
  17153.      
  17154. 'see if the time is changing; if the time is changing, then we need to reschedule resources
  17155.      tmpResourcesInvited = parentnote.RequiredResources
  17156.      If (tmpResourcesInvited(0) <> "") Then
  17157.           Forall Resources In tmpResourcesInvited
  17158.                Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_RESOURCE,Cstr(Resources),parentnote)
  17159.                notice.StartDateTime = parentnote.StartDateTime
  17160.                notice.EndDateTime = parentnote.EndDateTime
  17161.                notice.StartDate = parentnote.StartDate
  17162.                notice.TimeRange = parentnote.TimeRange
  17163.                Call notice.Send(False)
  17164.           End Forall
  17165.      End If     
  17166.      
  17167. 'reschedule the room if need be
  17168.      If (parentnote.RoomRequired(0) = "1") Then
  17169.           If (NewRoom <> "") Then
  17170.                Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM,NewRoom,parentnote)       
  17171.           Else
  17172.                Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM,OldRoom,parentnote)
  17173.           End If
  17174.           notice.StartDateTime = parentnote.StartDateTime
  17175.           notice.EndDateTime = parentnote.EndDateTime
  17176.           notice.StartDate = parentnote.StartDate
  17177.           notice.TimeRange = parentnote.TimeRange
  17178.           Call notice.Send(False)     
  17179.      End If
  17180.      
  17181.      Exit Sub
  17182.      
  17183. ErrorRoutine:
  17184.      Messagebox Error & " (AcceptCounterProposal)"
  17185.      Exit Sub
  17186. End Sub
  17187. '++LotusScript Development Environment:2:2:DeclineCounterProposal:1:8
  17188. Sub DeclineCounterProposal
  17189.  *This routine is called when the Chair declines a counter proposal
  17190.  *A notice is sent back to the invitee informing them of the chair's decline
  17191. %END REM
  17192.      
  17193.      On Error Goto ErrorRoutine
  17194.      
  17195.      Call CreateNoticeDocument("",ORS_MSGTYPE_COUNTERREJECT,38,1)
  17196. 'we need to overwrite some items     
  17197.      notice.Subject = "Proposed Change Declined - " & note.Topic(0)
  17198.      notice.Topic = note.Topic
  17199.      notice.Chair = Owner
  17200.      
  17201.      If (note.HasItem("FromDomain")) Then     
  17202.           notice.sendTo= note.InviteeName(0) & " @ " & note.FromDomain(0)
  17203.      Else
  17204.           FromDomain = Evaluate("@Domain")
  17205.           notice.SendTo = note.InviteeName(0) & " @ " & FromDomain(0)
  17206.      End If       
  17207.      Set nam = New NotesName(note.Inviteename(0))
  17208.      
  17209.      Call notice.Send(False)
  17210.      Messagebox "A notice has been sent informing " & nam.Common & " that the proposal for a time/location change has been declined.",0,"Status"
  17211.      Exit Sub
  17212.      
  17213. ErrorRoutine:
  17214.      Messagebox Error & " (DeclineCounterProposal)"
  17215.      Exit Sub
  17216. End Sub
  17217. '++LotusScript Development Environment:2:2:AddUninvitedToInviteeList:1:8
  17218. Sub AddUninvitedToInviteeList()
  17219.      Dim nIndex As Integer
  17220.      Dim UninvitedList As Variant
  17221.      
  17222. 'find this person in the InviteeTable
  17223.      UninvitedList = note.Uninvited
  17224.      
  17225.      Forall names In UninvitedList
  17226.           nIndex = FindInvitee(Cstr(names))
  17227.           InviteeList(nIndex).Status = ORS_STATUS_REMOVED
  17228.           InviteeList(nIndex).KeepPosted = ""          
  17229.      End Forall
  17230. End Sub
  17231. '++LotusScript Development Environment:2:1:GetInviteeMailAddress:1:8
  17232. Function GetInviteeMailAddress(pName As String) As String
  17233.      
  17234.      Dim nIndex As Integer
  17235.      
  17236.      nIndex = FindInvitee(pName)
  17237.      
  17238.      If (nIndex = -1) Then
  17239. 'the invitee was not found          
  17240.           GetInviteeMailAddress = pName
  17241.           Exit Function          
  17242.      End If
  17243.      
  17244. 'see if there is a domain associated with this user
  17245.      If(InviteeList(nIndex).Domain <> "") Then
  17246.           GetInviteeMailAddress = InviteeList(nIndex).InviteeName & "@" & InviteeList(nIndex).Domain
  17247.      Else
  17248.           GetInviteeMailAddress = InviteeList(nIndex).InviteeName
  17249.      End If
  17250.      
  17251.      
  17252. End Function
  17253. O=Lotus Notes
  17254. O=Lotus Notes
  17255. PURSAFO
  17256. |.:#U
  17257. O=Lotus Notes
  17258. CN=Lotus Notes Template Development/O=Lotus Notes
  17259. PURSAFO
  17260. Fde!f^^
  17261. $ScriptLib
  17262. $ScriptLib_O
  17263. $TITLE
  17264. $Flags
  17265. $PublicAccess
  17266. CN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisMary LambCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesEmailProcessings34Q1
  17267. ##########################################################
  17268. CN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Carol Brady/O=Iris AssociatesCN=Ryan Jansen/O=IrisJoe BlowCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesNoticeProcessings34Q1
  17269. ##########################################################
  17270. Joe BlowCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=user3 test/O=C&SCN=Ryan Jansen/O=IrisJoe BlowCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesNoticeResponsess34Q1#####################################################
  17271. CN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesObjectVariabless34Q1############################
  17272. CN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesRepeatProcessings34Q1####
  17273. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesResourceProcessings34Q1#########
  17274. CN=user1 test/O=C&SCN=Ryan Jansen/O=IrisCN=user2 test/O=C&SCN=Ryan Jansen/O=IrisCN=Build Room/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=user1 test/O=C&SCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesSharedWorkflowLibrarys34Q1######################################################
  17275. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDocumentConversionss34Q1############################
  17276. ##########################################################
  17277. ##########################################################
  17278. '++LotusScript Development Environment:2:5:(Options):0:74
  17279. Option Public
  17280. Use "ObjectVariables"
  17281. '++LotusScript Development Environment:2:5:(Forward):0:1
  17282. Declare Sub EmailOpen
  17283. Declare Sub EmailModeChange
  17284. Declare Sub EmailSave(Continue)
  17285. Declare Sub EmailClose(Continue)
  17286. Declare Sub SaveDialog(SavedDoc)
  17287. Declare Sub CheckSecureMail
  17288. Declare Sub CreateOLEObject
  17289. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17290. Dim newnote As NotesDocument
  17291. Dim DoNotClose As Variant
  17292. Dim ContinueSave As Variant
  17293. Dim TaskReply As Variant
  17294. Dim OLEObject As Variant
  17295. '++LotusScript Development Environment:2:2:EmailOpen:1:8
  17296. Sub EmailOpen
  17297.      
  17298.      If uidoc.InPreviewPane Then Exit Sub
  17299.      If note Is Nothing Then Call InstantiateObjectVariables
  17300.      
  17301.      If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) Then
  17302.           If uidoc.EditMode = False Then
  17303.                Exit Sub
  17304.           Else
  17305. 'If this is a message that was written by you or your mail file, we need to remove any options fields
  17306.                If note.From(0) = Owner Or note.From(0) = session.UserName Or _
  17307.                note.Principal(0) = Owner Or note.Principal(0) = session.UserName Then
  17308.                     note.RemoveItem("MailOptions")
  17309.                     note.RemoveItem("SaveOptions")
  17310.                     If Not(note.HasItem("SecureMail")) Then CheckSecureMail
  17311. 'If this is a message that was not written by you we do not present the mail dialog
  17312. 'but we do want to force processing into QuerySave               
  17313.                Else
  17314.                     note.MailOptions = "0"
  17315.                     note.SaveOptions = "1"
  17316.                End If
  17317.           End If
  17318.      Else
  17319.           uidoc.EditMode = True
  17320.      End If
  17321.      
  17322.      If uidoc.IsNewDoc Then
  17323.           NewDocument = True
  17324.           note.Principal = Owner
  17325.           CheckSecureMail
  17326.           EditType = session.GetEnvironmentString("MailStEd")
  17327. 'EditType 1 = CreateStationery          
  17328.           If EditType = "1" Then
  17329.                note.tmpAction = "SaveAsStationery"
  17330.                note.IsMailStationery = 1
  17331.                Call session.SetEnvironmentVar("MailStEd", "0")
  17332.                note.MailOptions = "0"
  17333.                note.SaveOptions = "1"
  17334.           Else
  17335.                If Len(EditType) > 1 Then
  17336.                     TaskReply = True
  17337.                     Call session.SetEnvironmentVar("MailStEd", "0")
  17338.                     note.SaveOptions = "1"
  17339.                     note.MailOptions = "1"
  17340.                     note.AssignState = 9
  17341.                     note.DueState = 9
  17342.                     Call note.ReplaceItemValue("_ViewIcon", 82)
  17343.                End If
  17344.           End If
  17345.      Else
  17346.           NewDocument = False
  17347.           If note.HasItem("IsMailStationery") Then
  17348.                EditType = session.GetEnvironmentString("MailStEd")
  17349. 'EditType 2 = EditStationery
  17350.                If EditType = "2" Then 
  17351.                     Call session.SetEnvironmentVar("MailStEd", "0")
  17352.                     note.MailOptions = "0"
  17353.                     note.SaveOptions = "1"
  17354.                Else
  17355. 'Create a doc from Stationery
  17356.                     note.RemoveItem("IsMailStationery")
  17357.                     note.RemoveItem("MailStationeryName")
  17358.                     Call note.ReplaceItemValue("$VersionOpt", "6")
  17359.                     uidoc.GoToField("SendTo")
  17360.                End If
  17361.           Else
  17362.                EditType = session.GetEnvironmentString("MailStEd")
  17363. 'EditType 5 = EditNewCopy               
  17364.                If EditType = "5" Then 
  17365.                     Call note.ReplaceItemValue("$VersionOpt", "6")
  17366.                     note.tmpAction = "ConvertNewDoc"
  17367.                     note.RemoveItem("PostedDate")
  17368.                     Call session.SetEnvironmentVar("MailStEd", "0")
  17369.                     uidoc.Reload
  17370.                     uidoc.Save
  17371.                     uidoc.Refresh
  17372.                     uidoc.RefreshHideFormulas
  17373.                     Exit Sub
  17374.                End If
  17375.           End If
  17376.      End If 
  17377.      
  17378.      uidoc.Reload
  17379.      uidoc.RefreshHideFormulas
  17380.      
  17381. End Sub
  17382. '++LotusScript Development Environment:2:2:EmailModeChange:1:8
  17383. Sub EmailModeChange
  17384.      
  17385.      If note Is Nothing Then Call InstantiateObjectVariables
  17386.      
  17387. 'If this is a message that was written by you or your mail file, we need to remove any options fields
  17388.      If note.From(0) = Owner Or note.From(0) = session.UserName Or _
  17389.      note.Principal(0) = Owner Or note.Principal(0) = session.UserName Then
  17390.           note.RemoveItem("MailOptions")
  17391.           note.RemoveItem("SaveOptions")
  17392.           If Not(note.HasItem("SecureMail")) Then CheckSecureMail
  17393. 'If this is a message that was not written by you we do not present the mail dialog
  17394. 'but we do want to force processing into QuerySave               
  17395.      Else
  17396.           note.MailOptions = "0"
  17397.           note.RemoveItem("SaveOptions")
  17398.      End If
  17399.      
  17400.      If uidoc.EditMode Then uidoc.Reload
  17401.      
  17402. End Sub
  17403. '++LotusScript Development Environment:2:2:EmailSave:1:8
  17404. Sub EmailSave(Continue)
  17405.      
  17406.      DoNotClose = False
  17407.      
  17408.      If note Is Nothing Then Call InstantiateObjectVariables
  17409.      
  17410.      note.RemoveItem("MailOptions")
  17411.      note.RemoveItem("SaveOptions")
  17412.      
  17413.      Action = note.tmpAction(0)
  17414.      
  17415.      If note.HasItem("IsMailStationery") Then
  17416.           If Action <> "RenameStationery" Then
  17417.                Call SaveDialog("Stationery")
  17418.                If ContinueSave = IDCANCEL Then continue = False
  17419.                If ContinueSave <> IDYES Then 
  17420.                     uidoc.reload
  17421.                     Exit Sub
  17422.                End If
  17423.           End If
  17424.      End If
  17425.      
  17426.      Select Case Action
  17427.      Case "SaveAsStationery"
  17428.           sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", "-Untitled-")
  17429.           If sName = "" Then
  17430.                Continue = False
  17431.                note.RemoveItem("tmpAction")
  17432.                Exit Sub
  17433.           End If
  17434.           If NewDocument Then
  17435.                note.IsMailStationery = 1
  17436.                note.MailStationeryName = sName
  17437.                note.MailOptions = "0"
  17438.                note.SaveOptions = "1"
  17439.           Else
  17440.                note.SaveOptions = "0"
  17441.                Set newnote = New NotesDocument(db)
  17442.                Call note.CopyAllItems(newnote)
  17443.                ItemList = newnote.Items
  17444.                Forall i In ItemList
  17445.                     If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
  17446.                End Forall
  17447.                newnote.IsMailStationery = 1
  17448.                newnote.MailStationeryName = sName              
  17449.                newnote.Form = "Memo"
  17450.                newnote.RemoveItem("PostedDate")
  17451.                newnote.RemoveItem("DeliveredDate")
  17452.                newnote.Save True, True
  17453.                ws.ViewRefresh
  17454.           End If
  17455.           Messagebox "This Message has been saved as Stationery in your Drafts folder. A new message will be created every time you open this Stationery.", 0, "Save as Stationery"
  17456.           note.RemoveItem("tmpAction")
  17457.           Call uidoc.close
  17458.      Case "RenameStationery"
  17459.           MailStationeryName = note.MailStationeryName
  17460.           sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", MailStationeryName(0))
  17461.           If sName = "" Then
  17462.                note.MailOptions = "0"
  17463.                note.RemoveItem("tmpAction")
  17464.                DoNotClose = True
  17465.                Continue = False
  17466.                Exit Sub
  17467.           End If
  17468.           note.MailStationeryName = sName
  17469.           note.MailOptions = "0"
  17470.           note.SaveOptions = "1"
  17471.      Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
  17472.           note.MailOptions = "0"
  17473.           note.SaveOptions = "1"
  17474.      Case "Send"
  17475.           note.MailOptions = "0"
  17476.           note.SaveOptions = "0"
  17477.      Case "Mailing"
  17478. 'We do not want to do anything if mailing is in process (like from the Send button)
  17479.      Case "ConvertToTask"
  17480.           note.RemoveItem("DeliveredDate")
  17481.           note.RemoveItem("PostedDate")
  17482.           note.SendTo = ""
  17483.           note.CopyTo = ""
  17484.           note.SaveOptions ="1"
  17485.           note.MailOptions = "0"
  17486.           note.Form = "Task"
  17487.           note.AssignState = 0
  17488.           note.ExcludeFromView = "D"
  17489.           Call note.ReplaceItemValue("_ViewIcon", 168)
  17490.      Case Else
  17491. 'If this is a message did not originate in this mailfile (it was sent here and therefore has DeliveredDate) we do not present the mail dialog          
  17492.           If note.HasItem("DeliveredDate") Then
  17493.                note.MailOptions = "0"
  17494.                note.SaveOptions = "1"
  17495.                Call SaveDialog("Document")
  17496.                If ContinueSave = IDCANCEL Then continue = False
  17497.                If ContinueSave <> IDYES Then 
  17498.                     uidoc.reload
  17499.                     Exit Sub
  17500.                End If
  17501.           End If
  17502.      End Select
  17503.      
  17504.      note.RemoveItem("tmpAction")
  17505.      If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
  17506.      
  17507.      'If Not(note.HasItem("AuthorList")) Then Set item = New NotesItem(note, "AuthorList", note.From, AUTHORS)
  17508.      
  17509.      uidoc.Reload
  17510.      
  17511. End Sub
  17512. '++LotusScript Development Environment:2:2:EmailClose:1:8
  17513. Sub EmailClose(Continue)
  17514.      
  17515.      If DoNotClose Then
  17516.           DoNotClose = False
  17517.           Continue = False
  17518. 'This backs out anything you did previously to MailOptions and SaveOptions and will force you back into QuerySave next time you try to exit          
  17519.           note.RemoveItem("MailOptions")
  17520.           note.RemoveItem("SaveOptions")
  17521.           uidoc.reload
  17522.      End If
  17523.      
  17524.      If TaskReply Then
  17525.           Set namelookup = New NotesName(note.SendTo(0))
  17526.           Messagebox "Notification has been sent to " & namelookup.Common & ".", 0, "Task Message"
  17527.      End If
  17528.      
  17529. End Sub
  17530. '++LotusScript Development Environment:2:2:SaveDialog:1:8
  17531. Sub SaveDialog(SavedDoc)
  17532.      
  17533.      ContinueSave = Messagebox("Do you wish to save this " & SavedDoc & "?", MB_YESNOCANCEL, "Save " & SavedDoc) 
  17534.      Select Case ContinueSave
  17535.      Case IDCANCEL
  17536.           note.MailOptions = "0"
  17537. 'This will force us into querysave next time - this time it will set continue = false so no save will occur          
  17538.           note.SaveOptions = "1"
  17539.      Case IDNO
  17540.           note.SaveOptions = "0"
  17541.      Case IDYES
  17542.           note.SaveOptions = "1"
  17543.      End Select
  17544.      
  17545. End Sub
  17546. '++LotusScript Development Environment:2:2:CheckSecureMail:1:8
  17547. Sub CheckSecureMail
  17548.      
  17549. 'If SecureMail = 1 in notes.ini all mail gets Signed and Encrypted and the user is unable to override it
  17550.      note.SecureMail = Cstr(session.GetEnvironmentString("SecureMail", True))
  17551.      If note.SecureMail(0) = "1" Then
  17552.           Call note.ReplaceItemValue("Sign", "1")
  17553.           Call note.ReplaceItemValue("Encrypt", "1")
  17554.      End If     
  17555.      
  17556. End Sub
  17557. '++LotusScript Development Environment:2:2:CreateOLEObject:1:8
  17558. Sub CreateOLEObject
  17559.      Dim sProgid As String
  17560.      
  17561.      On Error Resume Next
  17562.      
  17563.      sProgid = note.~$OLEObjProgId(0)
  17564.      
  17565. 'if this is a new document, then we need to create the ole object     
  17566.      If (NewDocument) Then     
  17567.           note.OriginalEditor = sProgid
  17568.           uidoc.GotoField(note.~$OLEObjField(0))
  17569.           
  17570.           Call uidoc.CreateObject("OLEObject", sProgId ,"")
  17571.           If (Err = 0) Then 
  17572.                Call ws.DialogBox("(OLEMailFields)",True,True)
  17573.           Else
  17574.                note.tmpuseOLE = ""
  17575.                uidoc.RefreshHideFormulas
  17576.           End If
  17577.      Else
  17578. 'the user is reading/editing an existing document
  17579. 'if the OriginalEditor = MailEditor, display the document using that Editor
  17580. 'otherwise, let Notes display the document
  17581.           If Lcase(note.OriginalEditor(0)) = Lcase(sProgId) Then
  17582.                uidoc.editmode = True
  17583.                Set OLEObject = uidoc.GetObject("OLEObject")
  17584.                If Not(Isobject(OLEObject)) Then
  17585. 'there is no object for some reason -this should be rare!!       
  17586.                     uidoc.EditMode = True
  17587.                     note.OriginalEditor = sProgid
  17588.                     uidoc.GotoField(note.~$OLEObjField(0))
  17589.                     Call uidoc.CreateObject("OLEObject",sProgId,"")      
  17590.                     Exit Sub    
  17591.                End If
  17592.           Else
  17593. 'the user has a different editor
  17594.                note.tmpUseOLE = ""
  17595.                uidoc.RefreshHideFormulas               
  17596.           End If
  17597.      End If     
  17598. End Sub
  17599. ,T    }d
  17600. ,T    }d
  17601. O=Lotus Notes
  17602. O=Lotus Notes
  17603. PURSAFO
  17604. |.:#U
  17605. O=Lotus Notes
  17606. CN=Lotus Notes Template Development/O=Lotus Notes
  17607. PURSAFO
  17608. Fde!f^^
  17609. HH9Kiy
  17610. NjsV?
  17611. $ScriptLib
  17612. $ScriptLib_O
  17613. $TITLE
  17614. $Flags
  17615. $PublicAccess
  17616. '++LotusScript Development Environment:2:5:(Options):0:74
  17617. Option Public
  17618. Use "AppointmentResponses"   
  17619. '++LotusScript Development Environment:2:5:(Forward):0:1
  17620. Declare Sub Initialize
  17621. Declare Sub AcceptInvitation
  17622. Declare Sub DeclineInvitation
  17623. Declare Function DelegateInvitation As Integer
  17624. Declare Sub CounterPropose
  17625. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17626. 'NoticeProcessing: 
  17627. '++LotusScript Development Environment:2:2:Initialize:1:10
  17628. Sub Initialize
  17629.      
  17630. End Sub
  17631. '++LotusScript Development Environment:2:2:AcceptInvitation:1:8
  17632. Sub AcceptInvitation
  17633.     *This routine is called whenever the user accepts a meeting invitation
  17634.     *A notice document is sent to the chair informing them of our intent to attend
  17635.     *The main invitation document is updated to reflect our acceptance     
  17636. %END REM
  17637.      
  17638.      On Error Goto ErrorRoutine
  17639.      On Error 4005 Resume Next 'handle a delegee 
  17640.      
  17641. 'first, make sure a conflict doesn't exist 
  17642. 'we don't check repeating appointments or appointments being auto-processed (auto-process does it itself)
  17643.      If Not((note.HasItem("RepeatFor")) Or (IsAgentProcessing)) Then          
  17644.           If (profile.ConflictMeeting(0) = "1") Then
  17645.                If (CheckIfConflictExists) Then Exit Sub
  17646.           End If
  17647.      End If
  17648.      
  17649. 'create the notice document
  17650.      If (note.tmpAction(0) = "PencilIn") Then
  17651.           Call CreateNoticeDocument("Penciled In -",ORS_MSGTYPE_ACCEPT,83,2)
  17652.      Else
  17653.           Call CreateNoticeDocument("Accepted -",ORS_MSGTYPE_ACCEPT,83,2)
  17654.      End If
  17655.      
  17656. 'add the comment if necessary
  17657.      If (note.HasItem("IncludeComment")) Then AddInviteeComment
  17658.      
  17659.      If (note.HasItem("FromDomain")) Then     
  17660.           notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
  17661.      Else
  17662.           FromDomain = Evaluate("@Domain")
  17663.           notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
  17664.      End If          
  17665.      
  17666. 'we use the profile document in case this is being processed by the agent     
  17667.      InviteeUserName = Evaluate("@Name([Abbreviate];owner)",profile)
  17668.      ChairName = Evaluate("@Name([cn];chair)",note)
  17669.      notice.InviteeName = InviteeUserName
  17670.      Call notice.Send(False)
  17671. 'now we need to update the original invitation document
  17672.      Context = GetContext
  17673.      Select Case Context
  17674.      Case 1,3
  17675. '1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
  17676.           Call UpdateOriginalInvitation(parentnote)
  17677.      Case 2,4
  17678. '2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
  17679.           Call UpdateOriginalInvitation(note)
  17680.      End Select
  17681.      If Not(IsAgentProcessing) Then Messagebox "A notice has been sent informing " & ChairName(0) & " that you will be attending. A meeting document has been added to your Calendar.",0,"Status"
  17682.      
  17683. 'see if we should remove this from the inbox
  17684.      If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
  17685.      Exit Sub
  17686.      
  17687. ErrorRoutine:
  17688.      Messagebox Error & " (AcceptInvitation)"
  17689.      Exit Sub
  17690. End Sub
  17691. '++LotusScript Development Environment:2:2:DeclineInvitation:1:8
  17692. Sub DeclineInvitation
  17693.     *This routine is called whenever the user declines an invitation or
  17694.      changes their mind after accepting an invitation
  17695.     *A notice document is sent to the chair informing them of our decline
  17696.     *The main invitation document is updated to reflect our decline    
  17697. %END REM
  17698.      Dim MessageText As String
  17699.      
  17700.      On Error Goto ErrorRoutine
  17701.      On Error 4005 Resume Next 'handle a delegee 
  17702.      
  17703.      Call CreateNoticeDocument("Declined -",ORS_MSGTYPE_REJECT,84,2)
  17704.      
  17705. 'add the comment if necessary
  17706.      If (note.HasItem("IncludeComment")) Then AddInviteeComment
  17707.      
  17708.      If (note.HasItem("FromDomain")) Then     
  17709.           notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
  17710.      Else
  17711.           FromDomain = Evaluate("@Domain")
  17712.           notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
  17713.      End If   
  17714.      
  17715.      InviteeUserName = Evaluate("@Name([Abbreviate];tmpOwner)",note)
  17716.      ChairName = Evaluate("@Name([cn];chair)",note)
  17717.      notice.InviteeName = InviteeUserName
  17718.      
  17719.      Call notice.Send(False)
  17720. 'now we need to update the original invitation document
  17721.      Context = GetContext
  17722.      Select Case Context
  17723.      Case 1,3
  17724. '1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
  17725.           If (parentnote.Form(0) = "Appointment") Then
  17726.                MessageText  = "The calendar entry has been removed from your calendar."
  17727.           Else
  17728.                MessageText = "A meeting document has not been added to your Calendar."
  17729.           End If
  17730.           Call UpdateOriginalInvitation(parentnote)
  17731.      Case 2,4
  17732. '2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
  17733.           If (note.Form(0) = "Appointment") Then
  17734.                MessageText  = "The calendar entry has been removed from your calendar."
  17735.           Else
  17736.                MessageText = "A meeting document has not been added to your Calendar."
  17737.           End If
  17738.           Call UpdateOriginalInvitation(note)
  17739.      End Select
  17740.      
  17741.      Messagebox "A notice has been sent informing " & ChairName(0) & " that you will not be attending. " & MessageText,0,"Status"
  17742. 'see if we should remove this from the inbox
  17743.      If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
  17744.      Exit Sub
  17745.      
  17746. ErrorRoutine:
  17747.      Messagebox Error & " (DeclineInvitation)"
  17748.      Exit Sub
  17749. End Sub
  17750. '++LotusScript Development Environment:2:1:DelegateInvitation:1:8
  17751. Function DelegateInvitation As Integer
  17752.     *This routine is called whenever the user wants to delegate a meeting invitation
  17753.     *This routine provides a dialogbox to select the delegatee
  17754.     *This routine sends an invitation to the delegatee and a delegation notice back to the chair
  17755.     *The main appointment document is updated to reflect the change
  17756.     *This function returns 0 if no errors occurred, or 1 if errors did occur
  17757. %END REM
  17758.      
  17759.      On Error Goto ErrorRoutine
  17760.      On Error 4005 Resume Next 'handle a delegee 
  17761.      
  17762.      DelegateInvitation = 0
  17763. 'invoke the dialog box to get the name
  17764.      If (ws.Dialogbox("(NamesPrompt)", True, True, False, False, False, False, "Delegate To") = True) Then
  17765. 'if this person has been invited by the chair, they should not be able to be a delegee
  17766.           localHasBeenInvited = Evaluate("@IsMember(@Lowercase(@Name([cn];SendTo));@Lowercase(@Name([cn];RequiredAttendees:OptionalAttendees:Chair)))",note)
  17767.           If (localHasBeenInvited(0) <> False) Then
  17768.                Messagebox "You have selected a person that has already been invited to this meeting. Please choose someone else.",0,"Invalid Selection"
  17769.                DelegateInvitation = DelegateInvitation()
  17770.                Exit Function
  17771.           End If          
  17772. 'create the notice and send it to the delegee          
  17773.           Call CreateNoticeDocument("Invitation -",ORS_MSGTYPE_DELEGATE,133,2)
  17774.           notice.OrgState = ORS_STATE_DELEGATE
  17775. 'remove the items that make this a response
  17776.           Call notice.RemoveItem("$Ref")
  17777.           Call notice.RemoveItem("$RefOptions")
  17778. 'add the comment if necessary
  17779.           If (note.HasItem("IncludeComment")) Then AddInviteeComment          
  17780. 'set the UniversalID of the notice          
  17781.           If (parentnote Is Nothing) Then
  17782.                notice.UniversalID = note.UniversalID
  17783.           Else
  17784.                notice.UniversalID = parentnote.UniversalID
  17785.           End If
  17786.           notice.SendTo = note.SendTo
  17787.           Call notice.Send(False)
  17788. 'create the notice and send it to the chair
  17789.           Call CreateNoticeDocument("Delegated -",ORS_MSGTYPE_DELEGATING,84,2)
  17790. 'add the comment if necessary
  17791.           If (note.HasItem("IncludeComment")) Then AddInviteeComment          
  17792.           
  17793.           If (note.HasItem("FromDomain")) Then     
  17794.                notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
  17795.           Else
  17796.                FromDomain = Evaluate("@Domain")
  17797.                notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
  17798.           End If
  17799.           note.Delegee = note.SendTo(0)
  17800.           notice.Delegee = Evaluate("@Name([Abbreviate];SendTo)",note)
  17801.           InviteeUserName = Evaluate("@Name([Abbreviate];tmpOwner)",note)
  17802.           ChairName = Evaluate("@Name([cn];chair)",note)
  17803.           DelegeeName = Evaluate("@Name([cn];sendto)",note)
  17804.           notice.InviteeName = InviteeUserName
  17805.           Call notice.Send(False)
  17806. 'call the function to update our invitation 
  17807.           Context = GetContext
  17808.           Select Case Context
  17809.           Case 1,3
  17810. '1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
  17811.                Call UpdateOriginalInvitation(parentnote)
  17812.                parentnote.Delegee = DelegeeName(0)
  17813.                parentnote.save True,False,True
  17814.           Case 2,4
  17815. '2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
  17816.                Call UpdateOriginalInvitation(note)
  17817.           End Select
  17818.           Messagebox "An invitation has been sent to " & Delegeename(0) & ". A notice has been sent informing " & ChairName(0) & " that you will not be attending.",0,"Status"
  17819. 'remove the sendto on the note
  17820.           note.SendTo = ""
  17821. 'see if we should remove this from the inbox
  17822.           If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
  17823.           DelegateInvitation = 0          
  17824.      Else
  17825.           DelegateInvitation = 1
  17826.      End If
  17827.      
  17828.      Exit Function
  17829.      
  17830. ErrorRoutine:
  17831.      Messagebox Error & " (DelegateInvitation)"
  17832.      Call MarkTempFields(note)
  17833.      Call note.RemoveItem("tmpUserActions")
  17834.      DelegateInvitation = 1     
  17835.      Exit Function
  17836. End Function
  17837. '++LotusScript Development Environment:2:2:CounterPropose:1:8
  17838. Sub CounterPropose
  17839.     *This routine is called whenever the user wants to send a counter propose notice
  17840.     *This routine sends a counter propose notice to the chair and updates the main
  17841.      appointment document
  17842. %END REM
  17843.      
  17844.      On Error Goto ErrorRoutine
  17845.      On Error 4005 Resume Next 'handle a delegee 
  17846.      
  17847.      Call CreateNoticeDocument("Change Proposal -",ORS_MSGTYPE_COUNTER,39,2)
  17848.      
  17849. 'add the comment if necessary
  17850.      If (note.HasItem("IncludeComment")) Then AddInviteeComment     
  17851.      
  17852. 'add the remaining items     
  17853.      notice.Reason = note.Reason
  17854.      
  17855.      Set trdr = session.CreateDateRange
  17856.      trdr.Text = uidoc.FieldGetText("NewTimeRange")
  17857.      Set startdt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.StartDateTime.TimeOnly)
  17858.      
  17859.      Set notice.NewDate = startdt
  17860.      Set notice.NewTimeRange = trdr
  17861.      notice.NewRoom = note.NewRoom
  17862.      InviteeUserName = Evaluate("@Name([Abbreviate];tmpOwner)",note)
  17863.      ChairName = Evaluate("@Name([cn];chair)",note)
  17864.      notice.InviteeName = InviteeUserName
  17865.      
  17866.      If (note.HasItem("FromDomain")) Then     
  17867.           notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
  17868.      Else
  17869.           FromDomain = Evaluate("@Domain")
  17870.           notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
  17871.      End If        
  17872.      
  17873.      notice.Send False
  17874.      
  17875.      Messagebox "A notice has been sent to " & ChairName(0) & " requesting a change to the Time/Location of this meeting.",0,"Status"
  17876.      
  17877.      Call UpdateOriginalInvitation(note)
  17878. 'see if we should remove this from the inbox
  17879.      If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
  17880.      Exit Sub
  17881.      
  17882. ErrorRoutine:
  17883.      Messagebox Error & " (CounterPropose)"
  17884.      Exit Sub
  17885. End Sub
  17886. owner
  17887.     0S0E
  17888. chair
  17889.     0S0E
  17890. tmpOwner
  17891.     0S0E
  17892. chair
  17893.     0S0E
  17894. SendTo
  17895. RequiredAttendees
  17896. OptionalAttendees
  17897. Chair
  17898.     0S0E
  17899. SendTo
  17900.     0S0E
  17901. tmpOwner
  17902.     0S0E
  17903. chair
  17904.     0S0E
  17905. sendto
  17906.     0S0E
  17907. tmpOwner
  17908.     0S0E
  17909. chair
  17910.     0S0E
  17911. O=Lotus Notes
  17912. O=Lotus Notes
  17913. PURSAFO
  17914. |.:#U
  17915. O=Lotus Notes
  17916. CN=Lotus Notes Template Development/O=Lotus Notes
  17917. PURSAFO
  17918. Fde!f^^
  17919. $ScriptLib
  17920. $ScriptLib_O
  17921. $TITLE
  17922. $Flags
  17923. $PublicAccess
  17924. '++LotusScript Development Environment:2:5:(Options):0:74
  17925. Option Public
  17926. Use "SharedWorkflowLibrary"     
  17927. Use "RepeatProcessing" 
  17928. '++LotusScript Development Environment:2:5:(Forward):0:1
  17929. Declare Sub Initialize
  17930. Declare Sub GetUpdateResponseItems(Byval context As Integer)
  17931. Declare Sub SetUpdateAsMostRecent(MainSequence As Integer)
  17932. Declare Sub GetMostRecentUpdateNotice(Context As Integer)
  17933. Declare Sub CheckForNoticeUpdates
  17934. Declare Sub DeCommitAppointment(apptdoc As NotesDocument)
  17935. Declare Sub CommitAppointment(apptdoc As NotesDocument)
  17936. Declare Function GetParentDocument() As Integer
  17937. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17938. 'NoticeResponses: 
  17939. Dim UpdateResponses() As NoticeInfo
  17940. Dim UpdateSequence As Integer
  17941. Dim UpdateCreation As Variant
  17942. Dim UpdateAction As String
  17943. Dim UpdateStatus As String
  17944. Dim UpdateUNID As String
  17945. Dim UpdateDate As Variant
  17946. Dim UpdateTime As Variant
  17947. '++LotusScript Development Environment:2:2:Initialize:1:10
  17948. Sub Initialize
  17949.      
  17950. End Sub
  17951. '++LotusScript Development Environment:2:2:GetUpdateResponseItems:1:8
  17952. Sub GetUpdateResponseItems(Byval context As Integer)
  17953.     *This gets specific items from any update notices from the chair
  17954.  *Update notices are responses documents to the current invitation
  17955. %END REM
  17956.      Dim itemSDT As NotesItem
  17957.      
  17958.      On Error Goto ErrorRoutine
  17959.      
  17960.      UpdateSequence = response.SequenceNum(0)
  17961.      UpdateCreation = response.Created
  17962.      UpdateAction = response.NoticeType(0)
  17963.      UpdateUNID = response.UniversalID
  17964. 'if this update is a status update, get the status update type
  17965.      If (UpdateAction = ORS_MSGTYPE_STATUSUPDATE) Then 
  17966.           UpdateStatus = response.OrgStatus(0)               
  17967.      Else
  17968.           UpdateStatus = ""
  17969.      End If 
  17970.      If (UpdateAction = ORS_MSGTYPE_CONFIRMATION) Then
  17971.           Set itemSDT = note.GetFirstItem("StartDateTime")
  17972.           UpdateDate = itemSDT.DateTimeValue.DateOnly
  17973.           UpdateTime = itemSDT.DateTimeValue.TimeOnly
  17974.      End If
  17975. 'if the user opened up the main parent document and this is a repeat response, we need to add certain items to the parent
  17976.      Select Case context
  17977. '1 means the current note is a non-repeat notice, 3 = repeat notice
  17978.      Case 1,3
  17979.           If(response.HasItem("RescheduleWhich")) Then parentnote.RescheduleWhich = response.RescheduleWhich
  17980.           If(response.HasItem("OriginalStartDate")) Then parentnote.OriginalStartDate = response.OriginalStartDate
  17981.      Case 2,4
  17982. '2 means repeat instance, 4 means non-repeat instance
  17983.           If(response.HasItem("RescheduleWhich")) Then note.RescheduleWhich = response.RescheduleWhich
  17984.           If(response.HasItem("OriginalStartDate")) Then note.OriginalStartDate = response.OriginalStartDate
  17985.      End Select
  17986.      
  17987.      Exit Sub
  17988.      
  17989. ErrorRoutine:
  17990.      Messagebox Error & " (GetUpdateResponseItems)"
  17991.      Exit Sub
  17992. End Sub
  17993. '++LotusScript Development Environment:2:2:SetUpdateAsMostRecent:1:8
  17994. Sub SetUpdateAsMostRecent(MainSequence As Integer)
  17995.     *This routine sets the current response as the most recent
  17996.     *We need to do this in case multiple update notices have been
  17997.      received from the chair and we want to process the most recent one
  17998.     *The MainSequence parameter is the SequenceNum item of the main inviation document
  17999. %END REM
  18000.      
  18001.      On Error Goto ErrorRoutine
  18002.      
  18003. 'if this is a confirmation, then add it's items to the 1 index, otherwise add it to the 0 index
  18004.      Dim index As Integer
  18005.      
  18006.      If (UpdateAction = ORS_MSGTYPE_CONFIRMATION) Then
  18007.           index = 1
  18008.           UpdateResponses(index).apptdate = UpdateDate
  18009.           UpdateResponses(index).appttime = UpdateTime
  18010.      Else
  18011.           index = 0
  18012.      End If
  18013.      
  18014.      UpdateResponses(index).sequencenum = UpdateSequence
  18015.      UpdateResponses(index).creationdate = UpdateCreation
  18016.      UpdateResponses(index).action = UpdateAction
  18017.      UpdateResponses(index).misc1 = UpdateStatus
  18018.      UpdateResponses(index).misc2 = UpdateUNID
  18019.      numResponses = numResponses + 1
  18020.      Exit Sub
  18021.      
  18022. ErrorRoutine:
  18023.      Messagebox Error & " (SetUpdateAsMostRecent)"
  18024.      Exit Sub
  18025. End Sub
  18026. '++LotusScript Development Environment:2:2:GetMostRecentUpdateNotice:1:8
  18027. Sub GetMostRecentUpdateNotice(Context As Integer)
  18028.     *This is the bulk of the processing for notice responses
  18029.     *This routine iterates through the responses of a particular meeting invitation
  18030.      and gets the most recent notice sent by the chair
  18031. %END REM
  18032.      Dim index As Integer     
  18033.      Dim MainSequence As Integer
  18034.      
  18035.      If (note.IsResponse) And (parentnote Is Nothing) Then Exit Sub
  18036.      On Error Goto ErrorRoutine
  18037.      
  18038.      Redim UpdateResponses(2)
  18039.      numResponses = 0
  18040.      
  18041. 'get the context that this document was opened in
  18042.      Context = GetContext
  18043.      Select Case context
  18044.      Case 1,3
  18045. '1 means the current note is a non-repeat notice, 3 = repeat notice
  18046.           Set documents  = parentnote.Responses          
  18047.           MainSequence = parentnote.SequenceNum(0)
  18048.      Case 2,4
  18049. '2 means repeat instance, 4 means non-repeat instance
  18050.           Set documents  = note.Responses          
  18051.           MainSequence = note.SequenceNum(0)          
  18052.      End Select
  18053.      
  18054.      If (documents.Count = 0) Then Exit Sub
  18055.      
  18056.      Set response = documents.GetFirstDocument
  18057.      While Not(response Is Nothing)
  18058. 'make sure we have a valid document
  18059.           If (response.Form(0) = "Notice") Then
  18060. 'get the necessary values for this update
  18061.                GetUpdateResponseItems(Context)
  18062. 'if the sequence is >= the original invitation sequence, we can process it
  18063.                If (UpdateSequence >= MainSequence) Then
  18064. 'if we haven't added anything to the array, add this one
  18065.                     If (numResponses = 0) Then 
  18066.                          Call SetUpdateAsMostRecent(MainSequence)
  18067.                     Else
  18068.                          If (UpdateAction = ORS_MSGTYPE_CONFIRMATION) Then 
  18069.                               index =1 
  18070.                          Else
  18071.                               index = 0
  18072.                          End If
  18073. 'if the UpdateSequence value is greater than the existing value, add this response
  18074.                          If (UpdateSequence > UpdateResponses(index).sequencenum) Then 
  18075.                               Call SetUpdateAsMostRecent(MainSequence)
  18076.                          Else
  18077. 'if the UpdateSequence = the existing value, compare creation dates
  18078.                               If (UpdateSequence = UpdateResponses(index).sequencenum) And (UpdateCreation > UpdateResponses(index).creationdate) Then Call SetUpdateAsMostRecent(MainSequence)
  18079.                          End If               
  18080.                     End If
  18081.                End If     
  18082.           End If
  18083.           Set response = documents.GetNextDocument(response)          
  18084.      Wend
  18085.      Exit Sub
  18086.      
  18087. ErrorRoutine:
  18088.      Messagebox Error & " (GetMostRecentUpdateNotice)"
  18089.      Exit Sub
  18090. End Sub
  18091. '++LotusScript Development Environment:2:2:CheckForNoticeUpdates:1:8
  18092. Sub CheckForNoticeUpdates
  18093.     *This routine is called from the QueryOpen event on notice and appointment forms
  18094.     *It is only called if the mail owner != the meeting chair (i.e. we are an invitee)
  18095.     *This routine calls GetMostRecentResponseNotice and performs an action based upon the notice
  18096. %END REM
  18097.      
  18098.      Dim Context As Integer
  18099.      Dim lDoc As NotesDocument
  18100.      
  18101.      Call GetMostRecentUpdateNotice(Context)
  18102.      
  18103.      If (documents.Count = 0) Then Exit Sub 'there are no responses
  18104.      
  18105.      Select Case Context
  18106. '1 means the current note is a non-repeat notice, 3 = repeat notice 
  18107.      Case 1,3
  18108.           Set lDoc = parentnote
  18109.      Case 2,4
  18110. '2 means repeat instance, 4 means non-repeat instance
  18111.           Set lDoc = note
  18112.      End Select
  18113.      
  18114.      On Error Goto ErrorRoutine
  18115. 'if there are any responses waiting, see what the most recent one is; 
  18116.      Select Case UpdateResponses(0).action
  18117.      Case ORS_MSGTYPE_RESCHEDULE
  18118. 'if the user is not reading the most upto date notice, see if we should open the reschedule notice or not
  18119.           If  (UpdateResponses(0).misc2 <> note.UniversalID) Then
  18120.                If (UpdateResponses(0).sequencenum > lDoc.SequenceNum(0)) Then
  18121.                     If IsWebClient Then
  18122.                          note.tmpConfirmMsg = "This meeting has been rescheduled. Check you In Box or Meetings view for the latest notice."
  18123.                     Else
  18124.                          If (Messagebox("This meeting has been rescheduled. Do you want to open the Reschedule notice now?.",33,"Open Reschedule") = 1) Then
  18125. 'the user wants us to open the reschedule notice
  18126.                               OpenReschedule = True
  18127.                          Else
  18128.                               OpenReschedule = False
  18129.                               note.DoNotProcess = True
  18130.                          End If
  18131.                     End If
  18132.                End If
  18133.           Else
  18134. 'the user is reading the most upto date reschedule notice -> make sure we can process this document
  18135.                If (UpdateResponses(0).sequencenum <= parentnote.SequenceNum(0)) Then note.DoNotProcess = True
  18136.           End If
  18137.      Case ORS_MSGTYPE_CANCEL 
  18138.           staticstring = "This meeting has been cancelled."
  18139.           If IsWebClient Then
  18140.                note.tmpConfirmMsg = staticstring
  18141.           Else
  18142.                If (lDoc.NoticeType(0) = ORS_MSGTYPE_ACCEPT) Then
  18143.                     Messagebox staticstring & " The calendar entry will be updated to reflect this change",0,"Status"
  18144.                     Call DeCommitAppointment(lDoc)
  18145.                Else
  18146.                     Messagebox staticstring, 0, "Status"
  18147.                End If
  18148.           End If
  18149.           note.DoNotProcess = True
  18150. 'we need to do this here since this is not handled in QuerySave          
  18151.           If Not IsWebClient And note.HasItem("OrgRepeat") Then
  18152.                Action = "Cancel"
  18153.                Call RepeatSave
  18154.           End If
  18155.      Case ORS_MSGTYPE_STATUSUPDATE
  18156.           If (UpdateResponses(0).misc1 = ORS_STATUS_REMOVED) Then
  18157. 'this user was uninvited
  18158.                staticstring = "You are no longer required to attend this meeting."
  18159.                If IsWebClient Then
  18160.                     note.tmpConfirmMsg = staticstring
  18161.                Else
  18162.                     If (lDoc.NoticeType(0) = ORS_MSGTYPE_ACCEPT) Then
  18163.                          Messagebox staticstring & " The calendar entry will be updated to reflect this change",0,"Status"
  18164.                          Call DeCommitAppointment(lDoc)
  18165.                     Else
  18166.                          Messagebox staticstring,0,"Status"
  18167.                     End If
  18168.                'we need to do this here since this is not handled in QuerySave          
  18169.                     If note.HasItem("OrgRepeat") Then
  18170.                          Action = "Cancel"
  18171.                          Call RepeatSave
  18172.                     End If
  18173.                End If
  18174.           Else                    
  18175. 'the user is being required to attend
  18176.                If (lDoc.NoticeType(0) <> ORS_MSGTYPE_ACCEPT) Then
  18177.                     staticstring = "You are required to attend this meeting."
  18178.                     If IsWebClient Then
  18179.                          note.tmpConfirmMsg = staticstring
  18180.                     Else
  18181.                          Messagebox  staticstring & " The calendar entry will be created to reflect this change",0,"Status"
  18182.                          Call CommitAppointment(lDoc)                        
  18183.                     End If
  18184.                End If
  18185.           End If
  18186.           note.DoNotProcess = True                       
  18187.      End Select
  18188. 'see if there are any confirmation notice          
  18189.      If (UpdateResponses(1).Action = ORS_MSGTYPE_CONFIRMATION) Then          
  18190. 'if the user is not reading the most upto date notice, and their are no other update notices more recent than this one, then display the message
  18191.           If  (UpdateResponses(1).misc2 <> note.UniversalID) And _
  18192.           ((UpdateResponses(1).sequencenum > UpdateResponses(0).SequenceNum) Or _
  18193.           (UpdateResponses(1).creationdate > UpdateResponses(0).creationdate)) Then 
  18194.                note.tmpRealDate = UpdateResponses(1).apptdate
  18195.                note.tmpRealTime = UpdateResponses(1).appttime
  18196.                If IsWebClient Then
  18197.                     RealDate = Evaluate({@Text(tmpRealDate;"S0D0")},note)
  18198.                     RealTime = Evaluate({@Text(tmpRealTime;"S1T1")},note)
  18199.                     Dim nName As New NotesName(note.Chair(0))
  18200.                     note.tmpConfirmMsg = "The invitation from " & nName.Common & " for " & _
  18201.                     RealDate(0) & " " & RealTime(0) & " has been confirmed."
  18202.                End If
  18203.           End If
  18204.      End If
  18205.      Exit Sub
  18206.      
  18207. ErrorRoutine:
  18208.      Messagebox Error & " (CheckForNoticeUpdates)"
  18209.      Exit Sub
  18210. End Sub
  18211. '++LotusScript Development Environment:2:2:DeCommitAppointment:1:8
  18212. Sub DeCommitAppointment(apptdoc As NotesDocument)
  18213.     *This routine is called if a user is uninvited from a meeting or
  18214.      if the meeting is cancelled
  18215.     *This routine modifies the passed in apptdoc to make it a non-calendar item
  18216. %END REM
  18217.      
  18218.      apptdoc.NoticeType = UpdateResponses(0).action
  18219.      apptdoc.OrgStatus = UpdateResponses(0).misc1
  18220.      Call apptdoc.ReplaceItemValue("$BusyPriority","2")
  18221.      Call apptdoc.RemoveItem("CalendarDateTime")
  18222.      Call apptdoc.ReplaceItemValue("_ViewIcon",0)
  18223.      apptdoc.SequenceNum = UpdateResponses(0).SequenceNum
  18224.      Call apptdoc.RemoveItem("OrgTable")
  18225. 'if this document has an alarm, remove it from the alarms folder
  18226.      If (apptdoc.HasItem("$Alarm")) Then Call apptdoc.RemoveFromFolder("$Alarms")
  18227.      Call MarkTempFields(apptdoc)
  18228.      Call apptdoc.Save(True,True,True)
  18229. End Sub
  18230. '++LotusScript Development Environment:2:2:CommitAppointment:1:8
  18231. Sub CommitAppointment(apptdoc As NotesDocument)
  18232.     *This routine is called ONLY when the user is being required to attend a meeting
  18233.         - THIS MEANS THE INVITEE RECEIVED A STATUSUPDATE NOTICE FROM THE CHAIR
  18234.         - WITH AN ORGSTATUS ITEM SET TO ORS_STATUS_ACCEPTED
  18235.     *This routine is not the same as an acceptance and should not be treated as such,
  18236.      since we don't mail anything back to the chair
  18237. %END REM
  18238.      Dim chairnote As NotesDocument
  18239.      
  18240.      If (UpdateResponses(0).misc2 <> "") Then
  18241.           Set chairnote = db.GetDocumentbyUNID(UpdateResponses(0).misc2)
  18242.      Else
  18243.              Set chairnote = note
  18244.      End If
  18245.      
  18246.      apptdoc.Form = "Appointment"
  18247.      
  18248.      Set trdr = session.CreateDateRange
  18249.      Set startdt = New NotesDateTime(chairnote.StartDateTime(0))
  18250.      Set enddt = New NotesDateTime(chairnote.EndDateTime(0))
  18251.      
  18252.      Set trdr.StartDateTime = startdt
  18253.      Set trdr.EndDateTime = enddt
  18254.      Set apptdoc.TimeRange = trdr
  18255.      Set apptdoc.StartDateTime = startdt
  18256.      Set apptdoc.EndDateTime = enddt
  18257.      apptdoc.CalendarDateTime = chairnote.StartDateTime
  18258.      apptdoc.StartDate = chairnote.StartDate
  18259.      apptdoc.Principal = chairnote.chair
  18260.      apptdoc.NoticeType = ORS_MSGTYPE_ACCEPT  
  18261.      Call apptdoc.ReplaceItemValue("_ViewIcon",158)
  18262.      Call apptdoc.ReplaceItemValue("$BusyName",Owner)
  18263.      Call apptdoc.ReplaceItemValue("$BusyPriority","1")
  18264.      Call apptdoc.ReplaceItemValue("_ViewIcon",158)
  18265.      apptdoc.Subject = chairnote.Topic
  18266. 'check to see if we should automatically set an alarm
  18267.      If (profile.EnableAlarms(0) = "1") And (profile.AutoSetAlarms(0) = "1") And (profile.SetAlarmAppointment(0) = "1") Then
  18268.           Call apptdoc.ReplaceItemValue("$Alarm",1)
  18269.           Call apptdoc.ReplaceItemValue("$AlarmDescription",note.Topic)
  18270.           Call apptdoc.ReplaceItemValue("$AlarmOffset", -1 * profile.AppointmentLead(0))
  18271.           Call apptdoc.PutInFolder("$Alarms")
  18272.      Else
  18273.           Call apptdoc.RemoveItem("$Alarm")
  18274.           Call apptdoc.RemoveItem("$AlarmDescription")
  18275.           Call apptdoc.RemoveItem("$AlarmOffset")               
  18276.      End If
  18277.      Call apptdoc.ReplaceItemValue("$NoPurge",apptdoc.EndDateTime(0))
  18278.      apptdoc.SequenceNum = UpdateResponses(0).SequenceNum     
  18279.      apptdoc.OrgTable =  ORS_ITEM_CALENDAR
  18280.      Call MarkTempFields(apptdoc)
  18281.      Call apptdoc.Save(True,True,True)  
  18282. End Sub
  18283. '++LotusScript Development Environment:2:1:GetParentDocument:1:8
  18284. Function GetParentDocument() As Integer
  18285.      *this routine gets the parent document for a given note     
  18286. %END REM
  18287.      On Error Resume Next
  18288.      GetParentDocument = False
  18289.      
  18290.      Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
  18291.      If (parentnote Is Nothing) Then
  18292. 'if this is a non-repeating note, see if we should re-create the document
  18293.           If Not(note.hasitem("OrgRepeat")) Then
  18294.                If (Msgbox("The appointment document has been deleted from your calendar, do you want to re-create it?",52) = 6) Then 
  18295.                     Call ResurrectParentDoc        
  18296.                     GetParentDocument =True
  18297.                     Exit Function
  18298.                Else
  18299.                     note.tmpNoParent = True
  18300.                     note.DoNotProcess = True
  18301.                     Exit Function
  18302.                End If                         
  18303.           Else
  18304. 'this is a repeating notice; see if the user is trying to process a response without processing the repeat parent
  18305.                If (note.HasItem("RepeatParentUNID")) Then 
  18306.                     Set parentnote = db.GetDocumentByUNID(note.RepeatParentUNID(0))
  18307.                     If (parentnote Is Nothing) Then
  18308. 'the repeat set has been deleted; see if the user wants to continue on by creating a non-repeat instance
  18309.                          If(Msgbox("The parent document has been deleted from your calendar and was part of a repeat set. Do you want to re-create it as a single appointment?",52) = 6) Then 
  18310.                               Call ResurrectParentDoc
  18311.                               GetParentDocument =True
  18312.                               Exit Function                            
  18313.                          Else
  18314.                               note.tmpNoParent = True
  18315.                               note.DoNotProcess = True
  18316.                               Exit Function
  18317.                          End If       
  18318.                     Else
  18319. 'the parent repeat set has not been deleted; see if it is an invitation
  18320.                          If (parentnote.NoticeType(0) = ORS_MSGTYPE_INVITE) Then
  18321.                               Msgbox "You need to respond to the original meeting invitation that this notice belongs to. After clicking on OK, the original invitation will be opened.",0,"Status"
  18322.                               OpenRepeatParent = True
  18323.                               Exit Function
  18324.                          Else
  18325. 'the parent repeat set has been processed; see if the user wants to recreate this as a non-repeating instance                                   
  18326.                               If(Msgbox("The parent document has been deleted from your calendar and was part of a repeat set. Do you want to re-create it as a single appointment?",52) = 6) Then 
  18327.                                    Call ResurrectParentDoc
  18328.                                    GetParentDocument =True
  18329.                                    Exit Function
  18330.                               Else
  18331.                                    note.tmpNoParent = True
  18332.                                    note.DoNotProcess = True
  18333.                                    Exit Function                                   
  18334.                               End If                                  
  18335.                          End If
  18336.                     End If
  18337.                End If                         
  18338.           End If 
  18339.      Else
  18340. 'we found the parent          
  18341.           GetParentDocument = True
  18342.      End If
  18343. End Function
  18344. 8    h     
  18345. O=Lotus Notes
  18346. O=Lotus Notes
  18347. PURSAFO
  18348. |.:#U
  18349. O=Lotus Notes
  18350. CN=Lotus Notes Template Development/O=Lotus Notes
  18351. PURSAFO
  18352. Fde!f^^
  18353. $ScriptLib
  18354. $ScriptLib_O
  18355. $TITLE
  18356. $Flags
  18357. $PublicAccess
  18358. '++LotusScript Development Environment:2:5:(Options):0:74
  18359. Option Public   
  18360. '++LotusScript Development Environment:2:5:(Forward):0:1
  18361. Declare Sub Initialize
  18362. Declare Sub InstantiateObjectVariables
  18363. Declare Sub GetCalendarOwner
  18364. Declare Sub MarkTempFields(doc As NotesDocument)
  18365. Declare Sub CreateDefaultCalendarProfile
  18366. Declare Sub wInitDefaultSettings
  18367. '++LotusScript Development Environment:2:5:(Declarations):0:10
  18368. 'Front end classes -> we declare these as variant so that backend server tasks will operate correctly
  18369. Dim ws As Variant
  18370. Dim uidoc As Variant
  18371. 'Back end classes
  18372. Dim session As NotesSession
  18373. Dim db As NotesDatabase
  18374. Dim note As NotesDocument
  18375. Dim profile As NotesDocument
  18376. Dim notice As NotesDocument
  18377. Dim parentnote As NotesDocument
  18378. Dim parent As NotesDocument
  18379. Dim child As NotesDocument
  18380. Dim documents As NotesDocumentCollection
  18381. Dim children As NotesDocumentCollection
  18382. Dim date1 As NotesDateTime
  18383. Dim date2 As NotesDateTime
  18384. Dim dateItem As NotesDateTime
  18385. Dim item As NotesItem
  18386. Dim NameLookup As NotesName
  18387. 'General Purpose classes
  18388. Dim Owner As String
  18389. Dim NewDocument As Integer
  18390. 'Client Differenciation
  18391. Dim IsWebClient As Variant
  18392. %INCLUDE "orgconst.lss"
  18393. %INCLUDE "lsconst.lss"
  18394. '++LotusScript Development Environment:2:2:Initialize:1:10
  18395. Sub Initialize
  18396.      
  18397. End Sub
  18398. '++LotusScript Development Environment:2:2:InstantiateObjectVariables:1:8
  18399. Sub InstantiateObjectVariables
  18400.      Set session = New NotesSession
  18401.      Set db = session.CurrentDatabase
  18402.      
  18403.      GetCalendarOwner
  18404.      
  18405.      If Typename(uidoc) <> "EMPTY" Then
  18406.           Set note = uidoc.Document
  18407.           uidoc.AutoReload  = False
  18408.      End If
  18409. End Sub
  18410. '++LotusScript Development Environment:2:2:GetCalendarOwner:1:8
  18411. Sub GetCalendarOwner
  18412.      
  18413.      On Error Resume Next
  18414.      
  18415.      If (profile Is Nothing) Then Set profile = db.GetProfileDocument("CalendarProfile")     
  18416.      If Err > 0 Then
  18417.           Err = 0     
  18418.           Call CreateDefaultCalendarProfile
  18419.      End If
  18420.      
  18421.      On Error Goto ErrorRoutine
  18422.      If profile.Owner(0) = "" Then Call CreateDefaultCalendarProfile
  18423.      
  18424.      Owner = profile.Owner(0)
  18425.      
  18426.      Exit Sub
  18427.      
  18428. ErrorRoutine:
  18429.      Messagebox Error & " (creating Calendar Profile)"
  18430.      Exit Sub
  18431. End Sub
  18432. '++LotusScript Development Environment:2:2:MarkTempFields:1:8
  18433. Sub MarkTempFields(doc As NotesDocument)
  18434. 'Mark all temporary and compute for display fields such that they will not be saved to disk     
  18435.      On Error Resume Next
  18436.      itemlist = doc.Items
  18437.      Forall n In itemlist
  18438.           If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
  18439.      End Forall     
  18440.      
  18441.      If Not IsWebClient Then Exit Sub
  18442.      
  18443.      'remove web CGI variable so that they will get updated on the next doc read
  18444.      Call doc.RemoveItem("$$QueryOpenAgent")
  18445.      Call doc.RemoveItem("$$QuerySaveAgent")
  18446.      Call doc.RemoveItem("Path_Info")
  18447.      Call doc.RemoveItem("Query_String")
  18448.      
  18449.      'if the mail option fields are all default values, remove them
  18450.      If (doc.Importance(0) = "2" And doc.DeliveryPriority(0) = "N" And doc.DeliveryReport(0) = "B" And _
  18451.      doc.Form(0) <> "Task") Then
  18452.           Call doc.RemoveItem("Importance")
  18453.           Call doc.RemoveItem("DeliveryPriority")
  18454.           Call doc.RemoveItem("DeliveryReport")
  18455.      End If
  18456. End Sub
  18457. '++LotusScript Development Environment:2:2:CreateDefaultCalendarProfile:1:8
  18458. Sub CreateDefaultCalendarProfile
  18459.  *This routine creates a calendar profile document
  18460.   containg default values for required fields
  18461. %END REM
  18462.      
  18463. 'the global variable "profile" is a profile document already
  18464. 'we need to add the fields to it
  18465.      profile.Form = "CalendarProfile"
  18466.      Call profile.ComputeWithForm(False, False)
  18467.      
  18468.      If IsWebClient Then
  18469.           Call wInitDefaultSettings()
  18470.      Else
  18471.           Call profile.Save(True,True,True)
  18472.      End If
  18473. End Sub
  18474. '++LotusScript Development Environment:2:2:wInitDefaultSettings:1:8
  18475. Sub wInitDefaultSettings
  18476.      profile.wDefaultMailOpt = "2"
  18477.      profile.wEnableTrashIcon = "1"
  18478.      profile.wCalGridType = "3"
  18479.      
  18480.      profile.wEnableNABs = "0"
  18481.      profile.wEnableFavorites = "0"
  18482.      
  18483.      profile.wIsFolder1 = "1"
  18484.      profile.wIsFolder2 = "1"
  18485.      profile.wIsFolder3 = "1"
  18486.      profile.wIsFolder4 = "1"
  18487.      profile.wIsFolder5 = "1"
  18488.      profile.wIsFolder6 = "1"
  18489.      
  18490.      profile.NotesNab1 = "names.nsf"
  18491.      
  18492.      Call profile.Save(True,True,True)
  18493. End Sub
  18494. O=Lotus Notes
  18495. O=Lotus Notes
  18496. PURSAFO
  18497. |.:#U
  18498. O=Lotus Notes
  18499. CN=Lotus Notes Template Development/O=Lotus Notes
  18500. PURSAFO
  18501. Fde!f^^
  18502. bdhw.
  18503. $ScriptLib
  18504. $ScriptLib_O
  18505. $TITLE
  18506. $Flags
  18507. $PublicAccess
  18508. '++LotusScript Development Environment:2:5:(Options):0:74
  18509. Option Public
  18510. Use "ObjectVariables"
  18511. '++LotusScript Development Environment:2:5:(Forward):0:1
  18512. Declare Sub RepeatSave
  18513. Declare Sub RepeatClose
  18514. Declare Sub SaveOriginalValues
  18515. Declare Sub ModifyRecurring
  18516. Declare Sub CopyChanges
  18517. Declare Sub BuildRepeatDates
  18518. Declare Sub NextAdjustment(x, TargetWeek)
  18519. Declare Function ProcessThisDoc As Integer
  18520. Declare Sub GetModifiedSettings
  18521. '++LotusScript Development Environment:2:5:(Declarations):0:10
  18522. '------PROCESSING VARIABLES------
  18523. Dim tmpnote As NotesDocument
  18524. Dim repnote As NotesDocument
  18525. Dim timerange As NotesDateRange
  18526. Dim Action As String
  18527. Dim AdjustDays As Integer
  18528. Dim Adjustment As Integer
  18529. Dim ChangeWhich As String
  18530. Dim DateList() As Variant
  18531. Dim DayList() As Integer
  18532. Dim SaveValueList List As Variant
  18533. Dim tmpRepeatDates() As Variant
  18534. Dim tmpRepeatIds() As Variant
  18535. Dim WeekList() As Integer
  18536. Dim WeekNbr As Integer
  18537. Dim CancelChange As Integer
  18538. Dim InstancesCreated As Integer
  18539. Dim QueriedForChanges As Integer
  18540. '++LotusScript Development Environment:2:2:RepeatSave:1:8
  18541. Sub RepeatSave
  18542.      
  18543.      On Error Goto ErrorRoutine
  18544.      
  18545. 'note IS THE CURRENT DOCUMENT
  18546. 'repnote IS THE REPEAT INSTANCE
  18547. 'parent IS THE ULTIMATE PARENT     
  18548.      
  18549. 'if note is a response, check to see if it is a notice
  18550. 'if it is a notice then we need to find the parent     
  18551.      If note.IsResponse Then
  18552.           If note.Form(0) = "Notice" Then
  18553.                Set repnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
  18554.           Else
  18555.                Set repnote = note
  18556.           End If
  18557.           If repnote Is Nothing Then Exit Sub
  18558.           Err = 0          
  18559.           On Error Resume Next
  18560.           Set parent = db.GetDocumentByUNID(repnote.ParentDocumentUNID)
  18561.           If Err = 0 Then
  18562.                On Error Goto ErrorRoutine
  18563.           Else
  18564.                Err = 0
  18565.                If parent Is Nothing Then Messagebox "This document's repeat parent has been deleted, "&_
  18566.                "therefore this calendar entry can no longer be processed as a repeating entry.", 0, "Repeat Parent Not Found"
  18567.                Exit Sub
  18568.           End If
  18569.      Else
  18570.           Set parent = note
  18571.      End If    
  18572.      
  18573.      If parent Is Nothing Then Exit Sub
  18574.      
  18575.      If (NewDocument Or Action = "Accept") And Not(InstancesCreated) Then
  18576. 'Build a list of all the dates this appointment will recur on (Accept already has the RepeatDates)               
  18577.           If NewDocument And note.RepeatUnit(0) <> "C" Then Call BuildRepeatDates
  18578. 'This doc becomes the parent of all of the repeat instances               
  18579. 'Mark all temporary and compute for display fields such that they will not be saved to disk     
  18580.           On Error Resume Next
  18581.           itemlist = parent.Items
  18582.           Forall n In itemlist
  18583.                If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
  18584.           End Forall
  18585.           On Error Goto ErrorRoutine
  18586.           Set timerange = session.CreateDateRange
  18587. 'Get the duration
  18588.           Set date1 = New NotesDateTime(parent.StartDateTime(0))
  18589.           Set date2 = New NotesDateTime(parent.EndDateTime(0))
  18590.           Duration =date2.TimeDifference(date1) / 60
  18591. 'Get the original start time and use it to set the time
  18592.           Set date2 = New NotesDateTime(parent.StartDateTime(0))
  18593.           date2.SetAnyDate
  18594. 'If there is a $AlarmTime we need to create the correct alarm times for each instsance
  18595.           If parent.HasItem("$AlarmTime") Then
  18596.                AlarmTime = parent.GetItemValue("$AlarmTime")
  18597.                Dim alarmdate As New NotesDateTime(AlarmTime(0))
  18598.                AlarmDiff = alarmdate.TimeDifference(date1) / 60
  18599.           End If
  18600. 'Create a copy of this meeting for each of the repeatDates, these are all children of parent which we just created
  18601.           RepeatDates = parent.RepeatDates
  18602.           RepeatIds = parent.RepeatIds
  18603.           BusyName = Owner
  18604.           IdList = parent.RepeatIds
  18605.           If Ubound(RepeatDates) > Ubound(IdList) Then Redim Preserve IdList(Ubound(RepeatDates))
  18606.           x = 0
  18607.           Forall d In RepeatDates
  18608.                Print "Creating repeating appointments... (" & (x+1) & " out of " & (Ubound(RepeatDates)+1) & ")"
  18609.                Set repnote = New NotesDocument(db)
  18610.                Call parent.CopyAllItems(repnote)
  18611.                repnote.Form = "Appointment"
  18612.                If NewDocument Then
  18613.                     repnote.Chair = Owner
  18614.                Else
  18615.                     repnote.Chair = note.Chair 'in this case we are accepting an invite
  18616.                End If
  18617.                repnote.SequenceNum = 1
  18618. 'Store new date with original time (date2)
  18619.                Set date1 = New NotesDateTime(d & " " & date2.LocalTime)
  18620.                Call repnote.ReplaceItemValue("StartDateTime", date1)
  18621.                Call repnote.ReplaceItemValue("StartDate", date1)
  18622.                Call repnote.ReplaceItemValue("CalendarDateTime", date1)
  18623.                Call date1.AdjustMinute(Duration, True)
  18624.                Call repnote.ReplaceItemValue("EndDateTime", date1)
  18625.                Call repnote.ReplaceItemValue("$NoPurge", date1)
  18626.                Set timerange.StartDateTime = New NotesDateTime(d & " " & date2.LocalTime)               
  18627.                Set timerange.EndDateTime = date1
  18628.                Set repnote.TimeRange = timerange
  18629.                If repnote.HasItem("$AlarmTime") Then
  18630.                     Call date1.AdjustMinute(AlarmDiff, True)
  18631.                     Call repnote.ReplaceItemValue("$AlarmTime", date1)
  18632.                End If
  18633.                If repnote.HasItem("Invite") Or repnote.SendTo(0) <> "" Or repnote.CopyTo(0) <> "" Or Action = "Accept" Or NewDocument Then
  18634.                     repnote.RemoveItem("Invite") 
  18635.                     repnote.RemoveItem("SendTo") 
  18636.                     repnote.RemoveItem("CopyTo") 
  18637.                     If (repnote.Resources(0) <> "") Then repnote.RequiredResources = repnote.Resources
  18638.                     repnote.RemoveItem("Resources")
  18639.                     repnote.RemoveItem("RoomToReserve")
  18640.                     repnote.RemoveItem("$Signature")
  18641.                End If 
  18642. 'Remove all of the Repeat parameters - these are saved in the parent document               
  18643.                repnote.RemoveItem("RepeatUnit")               
  18644.                repnote.RemoveItem("RepeatDates")
  18645.                repnote.RemoveItem("RepeatIds")
  18646.                repnote.RemoveItem("RepeatAdjust")
  18647.                repnote.RemoveItem("RepeatFor")
  18648.                repnote.RemoveItem("RepeatForUnit")
  18649.                repnote.RemoveItem("RepeatHow")
  18650.                repnote.RemoveItem("RepeatInterval")
  18651.                repnote.RemoveItem("RepeatUntil")
  18652.                repnote.RemoveItem("RepeatWeekends")
  18653.                Call repnote.ReplaceItemValue("$BusyName", BusyName)
  18654.                Call repnote.MakeResponse(parent)
  18655.                Call repnote.ReplaceItemValue("$RefOptions", "1")
  18656.                If Action = "Accept" Then
  18657.                     repnote.UniversalId = RepeatIds(x)
  18658.                Else
  18659.                     IdList(x) = repnote.UniversalId
  18660.                End If
  18661.                repnote.save True, True, True
  18662.                If repnote.HasItem("$Alarm") Then Call repnote.PutInFolder("$Alarms")
  18663.                x = x + 1
  18664.           End Forall
  18665.           parent.RepeatIds = IdList
  18666.           parent.RemoveItem("CalendarDateTime")
  18667.           parent.RemoveItem("$BusyName")
  18668.           parent.RemoveItem("$BusyPriority")
  18669.           parent.Save True, True, True
  18670.           InstancesCreated = True          
  18671.      Else
  18672.           If note.IsResponse Then Call ModifyRecurring
  18673.      End If
  18674.      
  18675.      If Typename(uidoc) = "EMPTY" Then
  18676.           If Not(note Is Nothing) And Not(CancelChange) Then note.save True, True, True
  18677.      Elseif uidoc Is Nothing Then
  18678.           If Not(note Is Nothing) And Not(CancelChange) Then note.save True, True, True
  18679.      End If
  18680.      
  18681.      Exit Sub
  18682.      
  18683. ErrorRoutine:
  18684.      Messagebox Error & " (RepeatSave)"
  18685.      Exit Sub
  18686.      
  18687. End Sub
  18688. '++LotusScript Development Environment:2:2:RepeatClose:1:8
  18689. Sub RepeatClose
  18690.      
  18691.      On Error Goto ErrorRoutine
  18692.      
  18693.      If Action = "SaveBody" Then
  18694.           uidoc.Save
  18695.      Else
  18696.           ws.ViewRefresh
  18697.      End If
  18698.      
  18699.      Exit Sub
  18700.      
  18701. ErrorRoutine:
  18702.      Messagebox Error & " (RepeatQueryClose)"
  18703.      Exit Sub
  18704.      
  18705. End Sub
  18706. '++LotusScript Development Environment:2:2:SaveOriginalValues:1:8
  18707. Sub SaveOriginalValues
  18708.      On Error Goto ErrorRoutine
  18709. 'Save the current value of all fields in the repeat instance
  18710.      
  18711.      If note.Form(0) = "Notice" And note.IsResponse Then
  18712.           Set repnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
  18713.      Else
  18714.           Set repnote = note
  18715.      End If
  18716.      
  18717.      If repnote Is Nothing Then Exit Sub
  18718.      
  18719.      Forall i In repnote.Items
  18720.           If (Left(i.name, 1) <> "$" And Lcase(Left(i.name, 3)) <> "tmp" And Lcase(Left(i.name, 3)) <> "disp") Or _
  18721.           (Mid(i.name, 2, 5) = "Alarm")  Then
  18722.                SaveValueList(i.Name) = i.Values
  18723.           End If
  18724.      End Forall
  18725.      
  18726.      Exit Sub
  18727.      
  18728. ErrorRoutine:
  18729.      Messagebox Error & " (SaveOriginalValues)"
  18730.      Exit Sub
  18731.      
  18732. End Sub
  18733. '++LotusScript Development Environment:2:2:ModifyRecurring:1:8
  18734. Sub ModifyRecurring
  18735.      
  18736.      On Error Goto ErrorRoutine
  18737.      
  18738.      If parent Is Nothing Then Exit Sub
  18739.      
  18740.      RepeatDates = parent.RepeatDates
  18741.      RepeatIds = parent.RepeatIds
  18742.      If RepeatDates(0) = "" Or RepeatIds(0) = "" Then Exit Sub
  18743.      
  18744. 'clear out these arrays because we'll be rebuilding them with only the remaining dates     
  18745.      If Action = "Delete" Then
  18746.           For d = 0 To Ubound(RepeatDates)
  18747.                RepeatDates(d) = ""
  18748.                RepeatIds(d) = ""
  18749.           Next
  18750.      End If
  18751.      
  18752.      Call GetModifiedSettings
  18753.      
  18754.      If ChangeWhich = "0" And Action <> "Delete" Then Exit Sub
  18755.      
  18756. 'Add any new items and their values.
  18757.      Forall i In repnote.Items
  18758.           If (Left(i.name, 1) <> "$" And Lcase(Left(i.name, 3)) <> "tmp" And Lcase(Left(i.name, 3)) <> "disp") Or _
  18759.           (Mid(i.name, 2, 5) = "Alarm")  Then
  18760.                ItemFound = False
  18761.                Forall s In SaveValueList
  18762.                     If i.Name = Listtag(s) Then
  18763.                          ItemFound = True
  18764.                          Exit Forall
  18765.                     End If
  18766.                End Forall
  18767.                If Not(ItemFound) Then SaveValueList(i.Name) = i.Values
  18768.           End If
  18769.      End Forall
  18770.      
  18771.      Set children = parent.Responses
  18772.      If children Is Nothing Then Exit Sub
  18773.      Set child = children.GetFirstDocument
  18774.      Set timerange = session.CreateDateRange
  18775.      x = 0
  18776.      y = 0
  18777.      While Not (child Is Nothing)
  18778.           If (child.Form(0) = "Appointment") Then
  18779.                If ProcessThisDoc Then
  18780.                     Select Case Action
  18781.                     Case "Delete"
  18782.                          Set tmpnote = children.GetNextDocument(child)
  18783.                          Call child.Remove(True)
  18784.                     Case "Cancel"
  18785.                          child.RemoveItem("CalendarDateTime")
  18786.                          Call child.ReplaceItemValue("$BusyPriority","2")     
  18787.                          child.NoticeType = ORS_MSGTYPE_CANCEL     
  18788.                          child.RemoveItem("OrgTable")
  18789.                          child.Save True, True, True
  18790.                     Case Else
  18791.                          If child.UniversalID <> repnote.UniversalID Then
  18792.                               Call CopyChanges
  18793.                               Set date1 = New NotesDateTime(child.StartDateTime(0))
  18794.                               Set date2 = New NotesDateTime(child.EndDateTime(0))
  18795.                               Set timerange.StartDateTime = date1
  18796.                               Set timerange.EndDateTime = date2
  18797.                               Set child.TimeRange = timerange
  18798.                               child.Save True, True, True
  18799.                          End If
  18800. 'these are reset so that we can post the new values on the parent (removing the values for deleted instances)                    
  18801.                          RepeatDates(x) = Datevalue(child.StartDateTime(0))
  18802.                          RepeatIds(x) = child.UniversalId
  18803. 'tmpRepeatDates are posted to a reschedule notice
  18804.                          Redim Preserve tmpRepeatDates(y)               
  18805.                          Redim Preserve tmpRepeatIds(y)               
  18806.                          tmpRepeatDates(y) = RepeatDates(x)
  18807.                          tmpRepeatIds(y) = RepeatIds(x)
  18808.                          y = y + 1
  18809.                          x = x + 1
  18810.                     End Select
  18811.                Else
  18812. 'we want to rebuild the RepeatDates and RepeatIds lists with only valid ones (if the doc is deleted its date and ID are removed)                                                       
  18813.                     RepeatDates(x) = Datevalue(child.StartDateTime(0))
  18814.                     RepeatIds(x) = child.UniversalId
  18815.                     x = x + 1
  18816.                End If
  18817.           End If
  18818. 'child will be nothing if we just removed it          
  18819.           If child Is Nothing Then
  18820.                Set child = tmpnote
  18821.           Else
  18822.                Set child = children.GetNextDocument(child)
  18823.           End If
  18824.      Wend
  18825.      
  18826.      If Action = "Delete" Then
  18827.           If ChangeWhich = "1" Then Call parent.Remove(True)
  18828.      Else
  18829.           repnote.tmpRepeatDates = tmpRepeatDates
  18830.           repnote.tmpRepeatIds = tmpRepeatIds
  18831.      End If
  18832.      
  18833.      If Not(parent Is Nothing) And RepeatDates(0) <> "" Then
  18834.           For r = 0 To Ubound(RepeatDates)
  18835.                If RepeatDates(r) = "" Then Exit For
  18836.           Next
  18837.           Redim Preserve RepeatDates(r-1)          
  18838.           Redim Preserve RepeatIds(r-1)          
  18839.           parent.RepeatDates = RepeatDates
  18840.           parent.RepeatIds = RepeatIds
  18841.           parent.save True, True, True   
  18842.      End If
  18843.      
  18844.      Exit Sub
  18845.      
  18846. ErrorRoutine:
  18847.      Messagebox Error & " (ModifyRecurring)"
  18848.      Exit Sub
  18849.      
  18850. End Sub
  18851. '++LotusScript Development Environment:2:2:CopyChanges:1:8
  18852. Sub CopyChanges
  18853.      Dim rtitem As NotesRichTextItem
  18854.      
  18855.      On Error Goto ErrorRoutine
  18856.      
  18857.      Forall OldValue In SaveValueList
  18858.           FieldName = Listtag(OldValue)
  18859.           NewValue = repnote.GetItemValue(FieldName)
  18860.           If FieldName = "Body" Then
  18861.                Set rtitem = repnote.GetFirstItem("body")
  18862.                Call child.RemoveItem("body")
  18863.                If Not(rtitem Is Nothing) Then Call rtitem.CopyItemToDocument(child,"body")
  18864.           Elseif Lcase(FieldName) = "statusupdate" Then
  18865. 'we don't want to do anything with this field                  
  18866.           Else
  18867.                If Cstr(NewValue(0)) <> Cstr(OldValue(0)) Then
  18868.                     Select Case Lcase(FieldName)
  18869. 'dates need to be adjusted (other things just get replaced)                        
  18870.                     Case "startdatetime", "calendardatetime", "enddatetime", "$alarmtime", "startdate"
  18871. 'date1 is old date                    
  18872.                          Set date1 = New NotesDateTime(Cstr(OldValue(0)))
  18873. 'date2 is new date                    
  18874.                          Set date2 = New NotesDateTime(Cstr(NewValue(0)))
  18875.                          TotalDif = date2.TimeDifference(date1)
  18876.                          AdjustDays = Fix(TotalDif / 86400)
  18877.                          SecDif = TotalDif Mod 86400
  18878.                          AdjustMin = Fix(SecDif / 60)
  18879.                          Set item = child.GetFirstItem(FieldName)
  18880.                          If Not(item Is Nothing) Then
  18881.                               Set dateItem = item.DateTimeValue
  18882.                               Call dateItem.AdjustDay(adjustDays, True)
  18883.                               Call dateItem.AdjustMinute(AdjustMin, True)
  18884.                               Call child.ReplaceItemValue(FieldName, dateItem)
  18885.                          End If
  18886.                     Case "sendto", "copyto", "resources", "requiredresources","statusupdate"
  18887.                          'we don't want to copy these fields
  18888.                     Case Else
  18889. 'The other fields can simply be copied over                    
  18890.                          Call child.ReplaceItemValue(FieldName, repnote.GetItemValue(FieldName))
  18891.                     End Select
  18892.                End If
  18893.           End If
  18894.      End Forall
  18895.      
  18896.      Exit Sub
  18897.      
  18898. ErrorRoutine:
  18899.      Messagebox Error & " (CopyChanges)"
  18900.      Exit Sub
  18901.      
  18902. End Sub
  18903. '++LotusScript Development Environment:2:2:BuildRepeatDates:1:8
  18904. Sub BuildRepeatDates
  18905.      
  18906. 'this only happens on a new doc so note = repnote = parent     
  18907.      
  18908.      On Error Goto ErrorRoutine
  18909.      
  18910. Assumes the following fields exist on the form:
  18911.    RepeatUnit - Daily(D), Weekly(W), MonthlyByDate(MD), MonthlyByDay(MP), Yearly(YD), Custom(C)
  18912.    RepeatInterval - 1, 2, 3.... for every, every other, every 3rd,...
  18913.    RepeatAdjust - if unit = W then 0, 1..6 representing days of the week
  18914.    StartDate
  18915.    RepeatHow - Until (U) or For (F)
  18916.    RepeatFor - a number of units
  18917.    RepeatForUnit - the unit used in RepeatFor (D, W, M, Y)
  18918.    RepeatUntil - a date
  18919.    RepeatWeekends - Don'tMove(D), MoveToFriday(F), MoveToMonday(M), MoveToNearestWeekday(N), Delete(X)
  18920. NOTE:  In some instances, we create an instance for StartDateTime then the number of occurances specified in RepeatFor.
  18921.    For example if StartDateTime is a Monday and you indicated that you wanted to repeat every Thursday for 5 weeks
  18922.    we create an instance for the Monday and 5 Thursdays.  But if you say you want to repeat every Thursday,
  18923.    and StartDateTime is the first of those Thursdays we need to subtract 1 from RepeatFor so we don't create an extra instance.
  18924. %ENDREM
  18925.      
  18926. 'Remove existing dates - replace with new item which we are about to populate
  18927.      If note.HasItem("RepeatDates") Then note.RemoveItem("RepeatDates")
  18928.      Set item = New NotesItem(note, "RepeatDates", Date)
  18929. 'setting RepeatStartDate = StartDateTime ensures that the start time will be accurare
  18930.      note.RepeatStartDate = note.StartDateTime     
  18931. 'date1 refers to RepeatStartDate.  date2 is used to generate the RepeatDates list          
  18932.      Set date1 = New NotesDateTime(note.RepeatStartDate(0))
  18933. 'This clears out any existing values     
  18934.      x = 1     
  18935.      Redim DateList(x)
  18936.      DateList(0) = date1.LSLocalTime
  18937.      TargetWeek = ""
  18938.      
  18939. 'Get the number of days to adjust by
  18940.      Select Case note.RepeatUnit(0)
  18941.      Case "D" '(Daily)
  18942.           Adjustment = Cint(note.RepeatInterval(0))
  18943.           Set date2 = New NotesDateTime(note.RepeatStartDate(0))
  18944.           Call date2.AdjustDay(Adjustment, True)
  18945.           If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
  18946.           Gosub BuildDateList
  18947.      Case "W" '(Weekly)
  18948. 'Get day of the week of startdate (LotusScript counts the days as 1-7)
  18949.           FirstDay = Weekday(date1.LSLocalTime) - 1
  18950. 'If the start day is after the day we want the event to occur, adjust to next week
  18951.           RepeatAdjust = note.RepeatAdjust
  18952.           Redim DayList(Ubound(RepeatAdjust))
  18953.           Adjustment = Cint(note.RepeatInterval(0)) * 7
  18954.           For i = 0 To Ubound(RepeatAdjust)
  18955.                Set date2 = New NotesDateTime(note.RepeatStartDate(0))              
  18956.                DayList(i) = Cint(RepeatAdjust(i))              
  18957.                Select Case DayList(i)
  18958.                Case FirstDay
  18959.                     Call date2.AdjustDay(Adjustment, True)
  18960.                     If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
  18961.                Case Is < FirstDay
  18962.                     Call date2.AdjustDay(7 - (FirstDay - DayList(i)), True)
  18963.                Case Is > FirstDay
  18964.                     Call date2.AdjustDay(DayList(i) - FirstDay, True)
  18965.                End Select
  18966.                Gosub BuildDateList
  18967.           Next
  18968.      Case "MD" '(Monthly by Date)
  18969.           FirstDay = Cint(Day(date1.LSLocalTime))
  18970.           RepeatAdjust = note.RepeatAdjust
  18971.           Redim DayList(Ubound(RepeatAdjust))
  18972.           Adjustment = Cint(note.RepeatInterval(0))
  18973.           For i = 0 To Ubound(DayList)
  18974.                Set date2 = New NotesDateTime(note.RepeatStartDate(0))
  18975.                DayList(i) = Cint(RepeatAdjust(i))
  18976.                Select Case DayList(i)
  18977.                Case FirstDay
  18978.                     Call date2.AdjustMonth(Adjustment, True)
  18979.                     If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
  18980.                Case Is < FirstDay
  18981. 'adjust back to the correct day                    
  18982.                     Call date2.AdjustDay(-1*(FirstDay - DayList(i)), True)
  18983. 'adjust that day to next month
  18984.                     Call date2.AdjustMonth(Adjustment, True)
  18985.                Case Is > FirstDay
  18986.                     Call date2.AdjustDay(DayList(i) - FirstDay, True)
  18987.                End Select
  18988.                Gosub BuildDateList
  18989.           Next
  18990.      Case "MP" '(Monthly by Day)
  18991. 'Get day of the week of startdate (LotusScript counts the days as 1-7)
  18992.           FirstDay = Cint(Weekday(date1.LSLocalTime) - 1)
  18993. 'RepeatAdjust is stored as Week.Day          
  18994.           RepeatAdjust = note.RepeatAdjust
  18995.           Redim DayList(Ubound(RepeatAdjust))
  18996.           Redim WeekList(Ubound(RepeatAdjust))
  18997. 'Create 2 variant arrays, one for weeks and one for days          
  18998.           For t = 0 To Ubound(DayList)
  18999.                DayList(t) = Cint(Right(RepeatAdjust(t), 1))
  19000.                WeekList(t) = Cint(Left(RepeatAdjust(t), 1))
  19001.           Next
  19002.           Adjustment = Cint(note.RepeatInterval(0))
  19003.           For i = 0 To Ubound(RepeatAdjust)
  19004.                Set date2 = New NotesDateTime(note.RepeatStartDate(0))
  19005. 'Adjust to the appropriate day
  19006.                Select Case DayList(i)
  19007.                Case Is < FirstDay
  19008.                     Call date2.AdjustDay(7 - (FirstDay - DayList(i)), True)
  19009.                Case Is > FirstDay
  19010.                     Call date2.AdjustDay(DayList(i) - FirstDay, True)
  19011.                End Select
  19012. 'Get the week number this date is in
  19013.                If Day(date2.LSLocalTime) Mod 7 > 0 Then
  19014.                     WeekNbr = Int(Day(date2.LSLocalTime) / 7) + 1
  19015.                Else
  19016.                     WeekNbr = Int(Day(date2.LSLocalTime) / 7)
  19017.                End If 
  19018.                CurrentMonth = Month(date2.LSLocalTime)
  19019.                Do Until WeekNbr = WeekList(i)
  19020.                     Call date2.AdjustDay(7, True)
  19021.                     If Day(date2.LSLocalTime) Mod 7 > 0 Then
  19022.                          WeekNbr = Int(Day(date2.LSLocalTime) / 7) + 1
  19023.                     Else
  19024.                          WeekNbr = Int(Day(date2.LSLocalTime) / 7)
  19025.                     End If
  19026.                     If WeekList(i) = 5 And CurrentMonth <> Month(date2.LSLocalTime) Then
  19027.                          WeekNbr = 5
  19028.                          Call date2.AdjustDay(-7, True)
  19029.                     End If
  19030.                Loop
  19031.                TargetWeek = WeekList(i)
  19032.                Gosub BuildDateList
  19033.           Next
  19034.      Case "YD" '(Yearly)
  19035.           Adjustment = Cint(note.RepeatInterval(0))
  19036.           Set date2 = New NotesDateTime(note.RepeatStartDate(0))
  19037.           Call date2.AdjustYear(Adjustment, True)
  19038.           If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
  19039.           Gosub BuildDateList
  19040.      Case "C"
  19041.      End Select
  19042.      
  19043.      x = Ubound(DateList)
  19044.      If DateList(x) = "" Then Redim Preserve DateList(x-1)
  19045.      note.RepeatDates = DateList
  19046.      Exit Sub
  19047.      
  19048. BuildDateList:
  19049.      
  19050. 'Set dateitem = the last repeat date     
  19051.      If note.RepeatHow(0) = "U" Then
  19052.           DatePortion = Evaluate("@Date(RepeatUntil)", note)
  19053.           TimePortion = Evaluate("@Time(StartDateTime)", note)
  19054.           Set dateItem = New NotesDateTime(DatePortion(0) & " " & TimePortion(0))
  19055. 'reset the time portion of RepeatUntil          
  19056.           Set note.RepeatUntil = dateItem
  19057.      Else
  19058.           Set dateitem = New NotesDateTime(note.RepeatStartDate(0))
  19059.           Select Case note.RepeatForUnit(0)
  19060.           Case "D"
  19061.                Call dateitem.AdjustDay(note.RepeatFor(0), True)
  19062.           Case "W"
  19063.                Call dateitem.AdjustDay(note.RepeatFor(0) * 7, True)
  19064.           Case "M"
  19065.                Call dateitem.AdjustMonth(note.RepeatFor(0), True)
  19066.           Case "Y"
  19067.                Call dateitem.AdjustYear(note.RepeatFor(0), True)
  19068.           End Select
  19069.      End If
  19070. 'dateitem is the until date and date2 is the date we're comparing it against
  19071. 'Add the correct number of days and add to the array
  19072.      Do While dateItem.TimeDifference(date2) => 0
  19073. 'D means do not move          
  19074.           If note.RepeatWeekends(0) <> "D" Then
  19075.                Do
  19076.                     WeekendDay = Weekday(date2.LSLocalTime)
  19077.                     If WeekendDay = 1 Or WeekendDay = 7 Then
  19078.                          Select Case note.RepeatWeekends(0)
  19079.                          Case "F"   'Move to Friday
  19080.                               If WeekendDay = 1 Then
  19081.                                    WeekendAdjust = 2
  19082.                               Else
  19083.                                    WeekendAdjust = 1
  19084.                               End If
  19085.                               Call date2.AdjustDay(-1*WeekendAdjust, True)
  19086. 'if the Friday is already on the list then add back the days you just subtracted, plus the normal adjustment                                   
  19087.                               If DateList(x-1) <> date2.LSLocalTime Then
  19088.                                    Redim Preserve DateList(x)
  19089.                                    DateList(x) = date2.LSLocalTime
  19090.                                    x = x + 1
  19091.                               End If
  19092.                               Call date2.AdjustDay(WeekendAdjust, True)
  19093.                               Call NextAdjustment(x, TargetWeek)
  19094.                          Case "M"   'Move to Monday
  19095.                               If WeekendDay = 1 Then
  19096.                                    WeekendAdjust = 1
  19097.                               Else
  19098.                                    WeekendAdjust = 2
  19099.                               End If
  19100.                               Call date2.AdjustDay(WeekendAdjust, True)
  19101. 'Add Monday to DateList
  19102.                               Redim Preserve DateList(x)
  19103.                               DateList(x) = date2.LSLocalTime
  19104.                               x = x + 1
  19105. 'Go back to the day you moved to Monday                              
  19106.                               Call date2.AdjustDay(-1 * WeekendAdjust, True)
  19107.                               Call NextAdjustment(x, TargetWeek)
  19108.                          Case "N"   'Move to the nearest weekday
  19109.                               If WeekendDay = 1 Then
  19110.                                    WeekendAdjust = 1
  19111.                               Else
  19112.                                    WeekendAdjust = -1
  19113.                               End If
  19114.                               Call date2.AdjustDay(WeekendAdjust, True)
  19115. 'Add the Friday or Monday to DateList
  19116.                               If DateList(x-1) <> date2.LSLocalTime Then
  19117.                                    Redim Preserve DateList(x)
  19118.                                    DateList(x) = date2.LSLocalTime
  19119.                                    x = x + 1
  19120.                               End If
  19121.                               Call date2.AdjustDay(-1 * WeekendAdjust, True)
  19122.                               Call NextAdjustment(x, TargetWeek)
  19123.                          Case "X"   'Delete (don't create an instance for that one)
  19124.                               Call NextAdjustment(x, TargetWeek)
  19125.                          End Select
  19126.                     End If
  19127.                     WeekendDay = Weekday(date2.LSLocalTime)
  19128.                Loop Until WeekendDay > 1 And WeekendDay < 7
  19129.           End If   'End of Weekend processing
  19130. 'The weekend adjustment might have adjusted us beyond the until date          
  19131.           If dateItem.TimeDifference(date2) => 0 Then
  19132.                Redim Preserve DateList(x)
  19133.                DateList(x) = date2.LSLocalTime
  19134.                If DateList(x) <> DateList(x-1) Then x = x + 1
  19135.                Call NextAdjustment(x, TargetWeek)
  19136.           End If
  19137.           Loop   'this Loops until we've reached the date when we want to stop repeating
  19138.           
  19139.           Return
  19140.           
  19141. ErrorRoutine:
  19142.           Messagebox Error & " (BuildRepeatDates)"
  19143.           Exit Sub
  19144.           
  19145. End Sub
  19146. '++LotusScript Development Environment:2:2:NextAdjustment:1:8
  19147. Sub NextAdjustment(x, TargetWeek)
  19148.      
  19149.      On Error Goto ErrorRoutine
  19150.      
  19151.      Select Case note.RepeatUnit(0)
  19152.      Case "D", "W"
  19153.           Call date2.AdjustDay(Adjustment, True)
  19154. 'If you already have one for that day adjust again                                   
  19155.           If DateList(x-1) = date2.LSLocalTime Then Call date2.AdjustDay(Adjustment, True)
  19156.      Case "MD"
  19157.           Call date2.AdjustMonth(Adjustment, True)
  19158.      Case "MP"
  19159.           CurrentMonth = Month(date2.LSLocalTime) + 1
  19160.           Do
  19161.                Call date2.AdjustDay(7, True)
  19162.                If Day(date2.LSLocalTime) Mod 7 > 0 Then
  19163.                     WeekNbr = Int(Day(date2.LSLocalTime) / 7) + 1
  19164.                Else
  19165.                     WeekNbr = Int(Day(date2.LSLocalTime) / 7)
  19166.                End If
  19167.                If TargetWeek = 5 And CurrentMonth <> Month(date2.LSLocalTime) Then
  19168.                     WeekNbr = 5
  19169.                     Call date2.AdjustDay(-7, True)
  19170.                End If
  19171.           Loop Until WeekNbr = TargetWeek
  19172.      Case "YD"
  19173.           Call date2.AdjustYear(Adjustment, True)
  19174.      End Select
  19175.      
  19176.      Exit Sub
  19177.      
  19178. ErrorRoutine:
  19179.      Messagebox Error & " (NextAdjustment)"
  19180.      Exit Sub
  19181.      
  19182. End Sub
  19183. '++LotusScript Development Environment:2:1:ProcessThisDoc:1:8
  19184. Function ProcessThisDoc As Integer
  19185.      
  19186.      On Error Goto ErrorRoutine
  19187.      
  19188.      Select Case ChangeWhich
  19189.      Case "0"
  19190.           Gosub GetDates
  19191.           If date1.TimeDifference(date2) = 0 Then ProcessThisDoc = True
  19192.      Case "1"
  19193.           ProcessThisDoc = True
  19194.      Case "2"
  19195.           Gosub GetDates
  19196.           If date1.TimeDifference(date2) > 0 Then ProcessThisDoc = True
  19197.      Case "3"
  19198.           Gosub GetDates
  19199.           If date1.TimeDifference(date2) < 0 Then ProcessThisDoc = True
  19200.      End Select
  19201.      
  19202.      Exit Function
  19203.      
  19204. GetDates:
  19205. 'we don't want to get the dates unless we need to check them     
  19206.      If repnote.HasItem("OriginalStartDate") Then
  19207.           Set date1 = New NotesDateTime(repnote.OriginalStartDate(0))
  19208.      Else
  19209.           Set date1 = New NotesDateTime(repnote.StartDateTime(0))
  19210.      End If
  19211.      Set date2 = New NotesDateTime(child.StartDateTime(0))
  19212.      Return
  19213.      
  19214. ErrorRoutine:
  19215.      ProcessThisDoc = False
  19216.      Exit Function
  19217.      
  19218. End Function
  19219. '++LotusScript Development Environment:2:2:GetModifiedSettings:1:8
  19220. Sub GetModifiedSettings
  19221.      If repnote.HasItem("RescheduleWhich") Then
  19222.           ChangeWhich = repnote.RescheduleWhich(0)
  19223.      Else
  19224.           If (QueriedForChanges) Then Exit Sub
  19225.           CancelChange = False
  19226.           If Not ws.DialogBox("(ChangeRepeating)", True, True, False, False, False, False, "Change Repeating", repnote) Then
  19227.                CancelChange = True     
  19228.                QueriedForChanges = False
  19229.                Exit Sub
  19230.           Else
  19231.                ChangeWhich = repnote.ChangeWhich(0)
  19232.                repnote.tmpRescheduleWhich = ChangeWhich
  19233.                repnote.RemoveItem("ChangeWhich")
  19234.                QueriedForChanges = True
  19235.           End If
  19236.      End If
  19237. End Sub
  19238. ,    <    <    
  19239. Kd    -t    #8
  19240.     Kd    -
  19241. Kd    S<
  19242. Kd    Pp
  19243. Kd    -t    #8
  19244. Kd    -t    #
  19245.     Kd    -
  19246. Kd    , 
  19247. Kd    ,D
  19248. Kd    S<
  19249. Kd    PT
  19250. Kd    PT
  19251. Kd    PT
  19252. Kd    QP
  19253. Kd    S\
  19254. Kd    Sx
  19255. Kd    Sx
  19256. Kd    S<
  19257. O=Lotus Notes
  19258. O=Lotus Notes
  19259. PURSAFO
  19260. |.:#U
  19261. O=Lotus Notes
  19262. CN=Lotus Notes Template Development/O=Lotus Notes
  19263. PURSAFO
  19264. Fde!f^^
  19265. $ScriptLib
  19266. $ScriptLib_O
  19267. $TITLE
  19268. $Flags
  19269. $PublicAccess
  19270. '++LotusScript Development Environment:2:5:(Options):0:74
  19271. Option Public 
  19272. Use "SharedWorkflowLibrary"
  19273. Use "RepeatProcessing" 
  19274. '++LotusScript Development Environment:2:5:(Forward):0:1
  19275. Declare Sub Initialize
  19276. Declare Sub RemoveResources(doc As NotesDocument)
  19277. Declare Sub SelectResourcesToRemove
  19278. Declare Sub ProcessRepeatingResources(ChangeWhich As String,NoticeType As String,ResourceType As String)
  19279. Declare Sub InviteResources(doc As NotesDocument)
  19280. Declare Sub InviteRoom(doc As NotesDocument)
  19281. Declare Sub RescheduleResources(ResourceType As String,doc As NotesDocument)
  19282. Declare Sub CancelResources(ResourceType As String,doc As NotesDocument)
  19283. Declare Sub ProcessOneRepeatResource(NoticeType As String,ResourceType As String,doc As NotesDocument)
  19284. '++LotusScript Development Environment:2:5:(Declarations):0:10
  19285. 'ResourceProcessing: 
  19286. '++LotusScript Development Environment:2:2:Initialize:1:10
  19287. Sub Initialize
  19288.      
  19289. End Sub
  19290. '++LotusScript Development Environment:2:2:RemoveResources:1:8
  19291. Sub RemoveResources(doc As NotesDocument)
  19292.     *This routine is called when resources need to be removed from a meeting
  19293.     *The doc parameter is the NotesDocument containing the resources that need to be removed
  19294.         - This allows us to pass in repeat instance documents 
  19295.     *This routine is not called for cancelling a meeting
  19296. %END REM
  19297.      
  19298. 'for each resource selected, send a cancel notice
  19299.      tmpResourcesRemoved = doc.tmpPeopleSelected
  19300.      If (tmpResourcesRemoved(0) <> "") Then 
  19301.           Forall Resources In tmpResourcesRemoved
  19302.                If (Cstr(Resources) = doc.Room(0)) Then 
  19303. 'this is a room
  19304.                     doc.Room = ""
  19305.                     doc.RoomRequired = ""
  19306.                     Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_ROOM,Cstr(Resources),doc)
  19307.                Else
  19308. 'this is a resource
  19309.                     Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_RESOURCE,Cstr(Resources),doc)      
  19310.                End If
  19311.                Call notice.Send(False)
  19312.           End Forall
  19313. 'update the resources field
  19314.           tmpUpdatedResources = Evaluate("@Replace(RequiredResources;tmpPeopleSelected;"""")",doc)
  19315.           doc.RequiredResources = tmpUpdatedResources
  19316.           Call MarkTempFields(doc)
  19317.           Call doc.Save(True,True,True)
  19318.      End If          
  19319. End Sub
  19320. '++LotusScript Development Environment:2:2:SelectResourcesToRemove:1:8
  19321. Sub SelectResourcesToRemove
  19322.     *This routine gets called whenever the user wants to remove a room/resource from a meeting
  19323.     *This routine displays a dialog box that allows the user to select which resources they want removed
  19324.     *After the user makes a selection, the RemoveResources routine is called to sent out notices
  19325. %END REM
  19326.      
  19327. 'build the list of resources to display in the dialog boc
  19328.      If(note.RoomRequired(0) = "1") And (note.Room(0) <> "") Then
  19329. 'if a room is required, then include the room
  19330.           tmpResourceList = Evaluate("@Trim(RequiredResources:Room)",note)
  19331.      Else
  19332.           tmpResourceList = Evaluate("@Trim(RequiredResources)",note)
  19333.      End If
  19334.      
  19335.      note.tmpPeopleList = tmpResourceList
  19336.      note.tmpheader = "Select the resources you want to remove:"
  19337.      
  19338.      If(ws.DialogBox("(PeopleListDlg)",True,True,False,False,False,False,"Remove Resources")) Then 
  19339.           If (note.HasItem("OrgRepeat")) Then Messagebox "The resources selected will be removed for the current repeat instance only.",0,"Status"
  19340. 'we can only remove resources from the current repeat instance
  19341.           Call RemoveResources(note)
  19342.           Call uidoc.Save
  19343.           Call MarkTempFields(note)
  19344.           Call note.Save(True,True,True)
  19345.      End If
  19346. End Sub
  19347. '++LotusScript Development Environment:2:2:ProcessRepeatingResources:1:8
  19348. Sub ProcessRepeatingResources(ChangeWhich As String,NoticeType As String,ResourceType As String)
  19349.     *This is the main processing logic for repeating meetings and resources
  19350.     *This routine is called once the user has performed some action (reschedule, cancel, invite)
  19351.      for a repeating meeting and has determined what repeat instances will be affected (Just this one, all, etc.)
  19352.     *This routine calls ProcessOneRepeatResource, which handles one repeat instance at a time, passing it the document
  19353.      object that represents the repeat instance and other parameters as well
  19354.     *Parameters 
  19355.         ChangeWhich is the repeat documents the user wants to modify (Just this one, all, etc.)
  19356.         NoticeType is the type of notice being sent
  19357.         ResourceType to determine if this is a room or a resource            
  19358. %END REM
  19359.      
  19360.      On Error Resume Next
  19361. 'determine which repeat instances to process
  19362.      Select Case ChangeWhich
  19363.      Case "0"
  19364. 'we only want to change this document
  19365.           Call ProcessOneRepeatResource(NoticeType,ResourceType,note)
  19366.      Case "1"
  19367. 'we want to change all instances
  19368.           Forall ids In parentnote.RepeatIds
  19369.                Set child = db.GetDocumentByUNID(Cstr(ids))
  19370.                If Not(child Is Nothing) Then Call ProcessOneRepeatResource(NoticeType,ResourceType,child)
  19371.           End Forall
  19372.      Case "2"
  19373. 'we want to invite all previous instances          
  19374.           Forall ids In parentnote.RepeatIds
  19375.                Set child = db.GetDocumentByUNID(Cstr(ids))               
  19376.                If Not(child Is Nothing) Then 
  19377.                     If (child.StartDateTime(0) <= note.StartDateTime(0)) Then Call ProcessOneRepeatResource(NoticeType,ResourceType,child)
  19378.                End If                    
  19379.           End Forall
  19380.      Case "3"
  19381. 'we want to invite all future instances          
  19382.           Forall ids In parentnote.RepeatIds
  19383.                Set child = db.GetDocumentByUNID(Cstr(ids))               
  19384.                If Not(child Is Nothing) Then 
  19385.                     If (child.StartDateTime(0) >= note.StartDateTime(0)) Then Call ProcessOneRepeatResource(NoticeType,ResourceType,child)
  19386.                End If                    
  19387.           End Forall
  19388.      End Select        
  19389. End Sub
  19390. '++LotusScript Development Environment:2:2:InviteResources:1:8
  19391. Sub InviteResources(doc As NotesDocument)
  19392.     *This routine gets  called whenever the user invites resources to a meeting
  19393.     *This routine is passed a document object for the meeting to be processed
  19394.      This allows us to handle repeating meetings
  19395.     *This function should only be called when the Resources item is not NULL
  19396.     *This function appends values in the Resources item to the RequiredResources item and
  19397.      sets the Resources item to NULL
  19398. %END REM
  19399.      
  19400.      tmpResourcesToInvite = doc.Resources
  19401.      tmpResourcesInvited = Evaluate("@Trim(RequiredResources)",doc)
  19402.      
  19403. 'make sure we have resources to process in case this function was accidentally called
  19404.      If (tmpResourcesToInvite(0) = "") Then Exit Sub
  19405. 'get the starting sequence of resources to be added to the array
  19406.      If (tmpResourcesInvited(0) = "") Then
  19407.           x = Ubound(tmpResourcesInvited)     
  19408.      Else
  19409.           x = Ubound(tmpResourcesInvited)+ 1     
  19410.      End If
  19411.      Redim Preserve tmpResourcesInvited(x + Ubound(tmpResourcesToInvite))
  19412.      
  19413.      Forall Resources In tmpResourcesToInvite
  19414.           Call CreateResourceNotice(ORS_MSGTYPE_INVITE,ORS_STATE_RESOURCE,Cstr(Resources),doc)          
  19415.           Call notice.Send(False)
  19416.           tmpResourcesInvited(x) = Resources
  19417.           x = x+1
  19418.      End Forall
  19419. 'update the required resources items
  19420.      doc.RequiredResources = tmpResourcesInvited     
  19421. 'remove the just invited resources
  19422.      doc.Resources = ""
  19423.      Call MarkTempFields(doc)
  19424.      Call doc.Save(True,True,True)
  19425. End Sub
  19426. '++LotusScript Development Environment:2:2:InviteRoom:1:8
  19427. Sub InviteRoom(doc As NotesDocument)
  19428.     *This routine gets  called whenever the user invites a room to a meeting
  19429.     *This routine is passed a document object for the meeting to be processed
  19430.      This allows us to handle repeating meetings
  19431.     *This function should only be called when the RoomToReserve item is not NULL
  19432.     *This function sets the RoomToReserve item to NULL
  19433. %END REM
  19434.      
  19435. 'make sure we have a room to process
  19436.      If (doc.Room(0) = "") Or Not(note.HasItem("Room")) Then Exit Sub
  19437. 'create the invitation
  19438.      Call CreateResourceNotice(ORS_MSGTYPE_INVITE,ORS_STATE_ROOM,doc.Room(0),doc)     
  19439.      doc.RoomToReserve = ""
  19440.      Call notice.Send(False)
  19441.      Call MarkTempFields(doc)
  19442.      Call doc.Save(True,True,True)
  19443. End Sub
  19444. '++LotusScript Development Environment:2:2:RescheduleResources:1:8
  19445. Sub RescheduleResources(ResourceType As String,doc As NotesDocument)
  19446.     *This routine is called whenever a room/resources need to be rescheduled due to a meeting change
  19447.     *The ResourceType determines whether we are rescheduling a room or a resource
  19448.     *The doc is the document object that is being rescheduled
  19449. %END REM
  19450.      
  19451.      Select Case ResourceType
  19452.      Case ORS_STATE_RESOURCE
  19453.           tmpResourcesInvited = doc.RequiredResources
  19454. 'if there are resources and this is a date change (we don't reschedule resources for room changes)
  19455.           If (tmpResourcesInvited(0) <> "") Then
  19456.                Forall Resources In tmpResourcesInvited
  19457.                     Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_RESOURCE,Cstr(Resources),doc)
  19458.                     Call notice.Send(False)
  19459.                End Forall
  19460.           End If                    
  19461.      Case ORS_STATE_ROOM
  19462.           If (doc.RoomRequired(0) = "1") And (doc.Room(0) <> "") Then
  19463.                Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM,doc.Room(0),doc)          
  19464.                Call notice.Send(False)     
  19465.           End If               
  19466.      End Select
  19467. End Sub
  19468. '++LotusScript Development Environment:2:2:CancelResources:1:8
  19469. Sub CancelResources(ResourceType As String,doc As NotesDocument)
  19470.     *This routine is called to whenver the user wants to cancel a meeting
  19471.     *The ResourceType determines whether we are rescheduling a room or a resource
  19472.     *The doc is the document object that is being cancelled
  19473. %END REM
  19474.      
  19475.      Select Case ResourceType
  19476.      Case ORS_STATE_RESOURCE
  19477.           tmpResourcesInvited = doc.RequiredResources
  19478.           If (tmpResourcesInvited(0) <> "") Then
  19479.                Forall Resources In tmpResourcesInvited
  19480.                     Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_RESOURCE,Cstr(Resources),doc)
  19481.                     Call notice.Send(False)
  19482.                End Forall
  19483.           End If
  19484.      Case ORS_STATE_ROOM
  19485.           If (doc.RoomRequired(0) = "1") And (doc.Room(0) <> "") Then
  19486.                Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_ROOM,doc.Room(0),doc)          
  19487.                Call notice.Send(False)     
  19488.           End If               
  19489.      End Select
  19490. End Sub
  19491. '++LotusScript Development Environment:2:2:ProcessOneRepeatResource:1:8
  19492. Sub ProcessOneRepeatResource(NoticeType As String,ResourceType As String,doc As NotesDocument)
  19493.     *This routine is called from ProcessRepeatingResources to handle repeating meetings
  19494.     *This routine in turn calls other functions based upon the action the user is taking
  19495.     *Parameters
  19496.                 NoticeType is the type of notice being sent
  19497.                 ResourceType determines if this is a room or resrouce
  19498.                 doc is the document object representing the meeting to process
  19499. %END REM
  19500.      
  19501.      Select Case NoticeType
  19502.      Case ORS_MSGTYPE_INVITE
  19503. 'we are inviting a room/resources
  19504.           If (ResourceType = ORS_STATE_RESOURCE) Then
  19505.                Call InviteResources(doc)
  19506.           Else
  19507.                Call InviteRoom(doc)
  19508.           End If
  19509.      Case ORS_MSGTYPE_RESCHEDULE
  19510. 'the meeting is being rescheduled
  19511.           Call RescheduleResources(ResourceType,doc)
  19512.      Case ORS_MSGTYPE_CANCEL
  19513. 'the meeting is being cancelled
  19514.           Call CancelResources(ResourceType,doc)
  19515.      Case "Remove"
  19516. 'we are removing a room/resources from the meeting
  19517.           Call RemoveResources(doc)
  19518.      End Select
  19519. End Sub
  19520. Q\    JL    
  19521. RequiredResources
  19522. tmpPeopleSelected
  19523.     0S0E
  19524. RequiredResources
  19525.     0S0E
  19526. RequiredResources
  19527.     0S0E
  19528. RequiredResources
  19529.     0S0E
  19530. O=Lotus Notes
  19531. O=Lotus Notes
  19532. PURSAFO
  19533. |.:#U
  19534. O=Lotus Notes
  19535. CN=Lotus Notes Template Development/O=Lotus Notes
  19536. PURSAFO
  19537. Fde!f^^
  19538. 8kg2x
  19539. $ScriptLib
  19540. $ScriptLib_O
  19541. $TITLE
  19542. $Flags
  19543. $PublicAccess
  19544. '++LotusScript Development Environment:2:5:(Options):0:74
  19545. Option Public
  19546. %INCLUDE "lsconst.lss"
  19547. %INCLUDE "lsxbeerr.lss"
  19548. '++LotusScript Development Environment:2:5:(Forward):0:1
  19549. Declare Sub UpdateTasks
  19550. Declare Sub CheckDueDate
  19551. Declare Sub CheckStartDate
  19552. '++LotusScript Development Environment:2:5:(Declarations):0:10
  19553. Dim s As NotesSession
  19554. Dim db As NotesDatabase
  19555. Dim view As NotesView
  19556. Dim note As NotesDocument
  19557. Dim reply As NotesDocument
  19558. Dim responses As NotesDocumentCollection
  19559. Dim dt As NotesDateTime
  19560. Dim nextnote As NotesDocument
  19561. Dim DueDate As Variant
  19562. Dim StartDate As Variant
  19563. '++LotusScript Development Environment:2:2:UpdateTasks:1:8
  19564. Sub UpdateTasks
  19565.      
  19566.      Set dt = New NotesDateTime(Today)
  19567.      
  19568.      Set s = New NotesSession
  19569.      Set db = s.CurrentDatabase
  19570.      Set view = db.GetView("($ToDo)")
  19571.      
  19572.      On Error Resume Next
  19573.      
  19574.      Set note = view.GetFirstDocument
  19575.      If note Is Nothing Then Exit Sub
  19576.      Set nextnote = view.GetNextDocument(note)
  19577.      If nextnote.Form(0) <> "Task" Then
  19578.           Do
  19579.                Set nextnote = view.GetNextDocument(nextnote)
  19580.           Loop Until (nextnote.Form(0) = "Task") Or (nextnote Is Nothing)     
  19581.      End If
  19582.      
  19583.      Do
  19584.           If note.Form(0) = "Task" Then
  19585.                If note.AssignState(0) = 2 Then
  19586.                     DoneCount = 0         
  19587.                     Set responses = note.Responses
  19588.                     If responses.Count > 0 Then
  19589.                          For r = 1 To responses.Count
  19590.                               Set reply = responses.GetNthDocument(r)
  19591.                               DueState = reply.DueState
  19592.                               If Val(DueState(0)) = 9 Then DoneCount = DoneCount + 1
  19593.                          Next
  19594.                          AssignedTo = note.AssignedTo
  19595.                          If DoneCount = Ubound(AssignedTo)  + 1 Then
  19596.                               note.AssignState = 9
  19597.                               note.DueState = 9
  19598.                               Call note.ReplaceItemValue("_ViewIcon", 82)
  19599.                               note.CompletedDateTime = dt.LSLocalTime
  19600.                          End If
  19601.                     End If
  19602.                End If
  19603.                If note.AssignState(0) < 8 Then
  19604.                     DueDate = note.DueDateTime
  19605.                     StartDate = note.StartDateTime
  19606.                     If StartDate(0) = "" Then
  19607.                          If DueDate(0) = "" Then
  19608.                               note.DueState = 1
  19609.                          Else
  19610.                               CheckDueDate
  19611.                          End If
  19612.                     Else
  19613.                          CheckStartDate
  19614.                          DueState = note.DueState
  19615.                          If DueDate(0) <> "" And DueState(0) <> 2 Then CheckDueDate
  19616.                     End If
  19617.                End If
  19618.                note.Save True, True, True
  19619.           End If
  19620.           Set note = nextnote         
  19621.           Do
  19622.                Set nextnote = view.GetNextDocument(nextnote)
  19623.           Loop Until (nextnote.Form(0) = "Task") Or (nextnote Is Nothing)     
  19624.      Loop Until (Err = lsERR_NOTES_DOC_NOTINVIEW) Or (note Is Nothing)
  19625.      
  19626. End Sub
  19627. '++LotusScript Development Environment:2:2:CheckDueDate:1:8
  19628. Sub CheckDueDate
  19629.      
  19630. 'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future               
  19631.      Set dt2 = New NotesDateTime(DueDate(0))
  19632.      If dt.TimeDifference(dt2) > 0 Then 
  19633.           note.DueState = 0
  19634.      Else
  19635.           note.DueState = 1
  19636.      End If
  19637.      
  19638. End Sub
  19639. '++LotusScript Development Environment:2:2:CheckStartDate:1:8
  19640. Sub CheckStartDate
  19641.      
  19642. 'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future               
  19643.      Set dt2 = New NotesDateTime(StartDate(0))
  19644.      If dt.TimeDifference(dt2) < 0 Then 
  19645.           note.DueState = 2
  19646.      Else
  19647.           note.DueState = 1
  19648.      End If
  19649.      
  19650. End Sub
  19651. :`6`6
  19652. "(&04
  19653. "($|5
  19654. (#h%86
  19655. H$H%<8
  19656. h$h&x8
  19657. $H(X9
  19658. &h'`;
  19659. '(.<=
  19660. ('H'x=
  19661. ((h-H?
  19662. (H)@@
  19663. H)H*PA
  19664. )(+4B
  19665. )h+dB
  19666. h*H-@C
  19667. ,h,8F
  19668. (,H/tF
  19669. (.H.<J
  19670. .h/\K
  19671. /(1lM
  19672. H1h1LP
  19673. 2$7XR
  19674. 9x:x:
  19675. $747 S    
  19676. 9}|T#
  19677. [$7KP6,89#
  19678. 8KP6,h9G$7#
  19679. 8KP6,h9G
  19680. 7K$7-
  19681. ^h:4C
  19682. ^L:K47P\:
  19683. ^x:K$7P
  19684. K$7Q\:
  19685. 8K$7P
  19686. 8K$7P
  19687. K$7Q\:
  19688. ^L:K$7P\:
  19689. 8KP6,h9G
  19690. 8,8<J(<
  19691. K$7Q\:
  19692. K$7Q\:
  19693. 8,8<Jh<
  19694. K$7Q\:
  19695. K$7Q\:
  19696. O=Lotus Notes
  19697. O=Lotus Notes
  19698. PURSAFO
  19699. |.:#U
  19700. O=Lotus Notes
  19701. CN=Lotus Notes Template Development/O=Lotus Notes
  19702. PURSAFO
  19703. Fde!f^^
  19704. $ScriptLib
  19705. $ScriptLib_O
  19706. $TITLE
  19707. $Flags
  19708. $PublicAccess
  19709. '++LotusScript Development Environment:2:5:(Options):0:74
  19710. Option Public 
  19711. Use "ObjectVariables"     
  19712. '++LotusScript Development Environment:2:5:(Forward):0:1
  19713. Declare Type NoticeInfo
  19714. Declare Type InviteeTable
  19715. Declare Sub Initialize
  19716. Declare Sub UpdateOriginalInvitation (orgnote As NotesDocument)
  19717. Declare Function CheckIfConflictExists As Integer
  19718. Declare Sub AddInviteeComment
  19719. Declare Sub CreateNoticeDocument(Subject As String,NoticeType As String,ViewIcon As Integer,Mode As Integer)
  19720. Declare Function GetContext As Integer
  19721. Declare Sub ResurrectParentDoc
  19722. Declare Sub CreateResourceNotice(NoticeType As String,ResourceType As String,ResourceName As String,doc As NotesDocument)
  19723. Declare Function IsRemoved(KeyValue As String,UserType As String) As Integer
  19724. Declare Function ProcessConflict(othernote As NotesDocument) As Integer
  19725. Declare Function CheckProfileTimes(doc As NotesDocument) As Integer
  19726. Declare Function GetSubjectText(userDate As Variant) As String
  19727. Declare Function GetContextSub ( targetnote As NotesDocument ) As Integer
  19728. '++LotusScript Development Environment:2:5:(Declarations):0:10
  19729. Type NoticeInfo
  19730.      creationdate As Variant
  19731.      apptdate As Variant 'used by confirmation message
  19732.      appttime As Variant 'used by confirmation message
  19733.      sequencenum As Integer
  19734.      misc1 As String            'for invitee responses, this will be their name; for chair updates, this is the status
  19735.      action As String
  19736.      misc2 As String   'for invitee responses, this will be the delegees name; for chair updates, this is the document's unid   
  19737.      state As String     'for invitee responses, this will determine if a response is from a resource or not
  19738. End Type
  19739. Type InviteeTable
  19740.      CreationDate As Variant
  19741.      SequenceNum As Integer
  19742.      InviteeName As String
  19743.      Domain As String
  19744.      Status As String
  19745.      State As String
  19746.      Delegee As String
  19747.      KeepPosted As String
  19748. End Type
  19749. Dim OriginalRoom As String
  19750. Dim OriginalStartDate As Variant
  19751. Dim OriginalEndDate As Variant
  19752. Dim OriginalRequired As Variant
  19753. Dim OriginalOptional As Variant
  19754. Dim OriginalTimeRange As Variant
  19755. Dim OriginalType As String
  19756. Dim IsDateChange As Integer
  19757. Dim IsRoomChange As Integer
  19758. Dim OpenReschedule As Integer
  19759. Dim OpenRepeatParent As Integer
  19760. 'used by the noticeresponses and appointmentresponses libraries
  19761. Dim view As NotesView
  19762. Dim response As NotesDocument
  19763. Dim numResponses As Integer
  19764. Dim IsAgentProcessing As Integer
  19765. Const CS_INVITEE_INDEX = 10
  19766. Const ORG_STATUS_WAITING = "W"
  19767. '++LotusScript Development Environment:2:2:Initialize:1:10
  19768. Sub Initialize
  19769.      
  19770. End Sub
  19771. '++LotusScript Development Environment:2:2:UpdateOriginalInvitation:1:8
  19772. Sub UpdateOriginalInvitation (orgnote As NotesDocument)
  19773.     *This routine is called by several other routines to update a particular note (orgnote)
  19774.      whenever the user takes a specific action
  19775.     *Orgnote is the document object to be updated
  19776. %END REM
  19777.      
  19778.      On Error Goto ErrorRoutine
  19779.      
  19780.      If (orgnote Is Nothing) Then Exit Sub
  19781.      
  19782. 'the following are some changes we make regardless of the action being performed
  19783.      orgnote.StartDateTime = note.StartDateTime
  19784.      orgnote.EndDateTime = note.EndDateTime
  19785.      orgnote.Room = note.Room
  19786.      orgnote.StartDate = note.StartDate
  19787.      
  19788.      If IsWebClient Then 
  19789.           tmpFrom = notice.From
  19790.      Else
  19791.           tmpFrom = session.Username
  19792.           Call MarkTempFields(orgnote)
  19793.      End If
  19794.      
  19795.      Select Case note.tmpAction(0)
  19796.      Case "Accept","AddCalendar","PencilIn"
  19797. 'we are acceptring an invitation -> mark the document as an appointment
  19798.           orgnote.Form = "Appointment"
  19799.              Set trdr = session.CreateDateRange
  19800.              Set startdt = New NotesDateTime(note.StartDateTime(0))
  19801.              Set enddt = New NotesDateTime(note.EndDateTime(0))
  19802.              Set trdr.StartDateTime = startdt
  19803.              Set trdr.EndDateTime = enddt
  19804.              Set orgnote.TimeRange = trdr
  19805.           orgnote.CalendarDateTime = note.StartDateTime
  19806.           orgnote.StartDate = note.StartDate
  19807.           If (note.tmpAction(0) = "PencilIn") Then
  19808.                Call orgnote.ReplaceItemValue("$BusyPriority","2")
  19809.                orgnote.BookFreeTime = "1"
  19810.           Else            
  19811.                Call orgnote.ReplaceItemValue("$BusyPriority","1")
  19812.           End If
  19813.           orgnote.OrgTable = ORS_ITEM_CALENDAR
  19814.           orgnote.NoticeType = ORS_MSGTYPE_ACCEPT  
  19815.           Call orgnote.ReplaceItemValue("_ViewIcon",158)
  19816.           If Not(orgnote.HasItem("RepeatDates") And orgnote.HasItem("OrgRepeat")) Then Call orgnote.ReplaceItemValue("$BusyName",Owner)
  19817.           orgnote.Subject = note.Topic
  19818. 'check to see if we should automatically set an alarm
  19819.           If (profile.EnableAlarms(0) = "1") And (profile.AutoSetAlarms(0) = "1") And (profile.SetAlarmAppointment(0) = "1") Then
  19820.                Call orgnote.ReplaceItemValue("$Alarm",1)
  19821.                Call orgnote.ReplaceItemValue("$AlarmDescription",note.Topic)
  19822.                Call orgnote.ReplaceItemValue("$AlarmOffset", -1 * profile.AppointmentLead(0))
  19823.                If Not(orgnote.HasItem("RepeatIds")) Then Call orgnote.PutInFolder("$Alarms")
  19824.           Else
  19825.                Call orgnote.RemoveItem("$Alarm")
  19826.                Call orgnote.RemoveItem("$AlarmDescription")
  19827.                Call orgnote.RemoveItem("$AlarmOffset")               
  19828.           End If
  19829. 'if the autoprocessing agent is running, then we need to remove some fields
  19830.           If (IsAgentProcessing) Then
  19831.                Call orgnote.RemoveItem("MailOptions")
  19832.                Call orgnote.RemoveItem("SendTo")
  19833.           End If
  19834. 'if the profile says we shouldn't double book, then update the OrgDontDoubleBook item
  19835.           If (profile.CheckMeeting(0) = "1") Then orgnote.OrgDontDoubleBook = "1"
  19836. 'if the profile says hide new entries from public viewing, then remove the $PublicAccess bit
  19837.           If (profile.CalEntryHide(0) = "1") Then Call orgnote.RemoveItem("$PublicAccess")
  19838.           Call orgnote.ReplaceItemValue("$NoPurge",orgnote.EndDateTime(0))
  19839. 'update the original invitation only if this is a response document
  19840.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  19841.           Call orgnote.Save(True,True,True)
  19842.      Case "Decline"
  19843.           orgnote.Form = "Notice"
  19844.           orgnote.Subject = "Appointment Declined - " & note.Topic(0)          
  19845.           Call orgnote.ReplaceItemValue("_ViewIcon",84)
  19846.           orgnote.NoticeType = ORS_MSGTYPE_REJECT
  19847.           orgnote.From = tmpFrom
  19848.           orgnote.Principal = Owner
  19849.           orgnote.OrgTable = ""
  19850. 'the invitee might have accepted, so remove the calendar and update busy items
  19851.           Call orgnote.RemoveItem("CalendarDateTime")
  19852.           Call orgnote.ReplaceItemValue("$BusyPriority","2")
  19853. 'update the original invitation only if this is a response document
  19854.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  19855.           Call orgnote.Save(True,True,True)        
  19856.      Case "Delegate"
  19857.           orgnote.Form = "Notice"
  19858.           orgnote.Subject = "Appointment Delegated - " & note.Topic(0)
  19859.           Call orgnote.ReplaceItemValue("_ViewIcon",84)
  19860.           orgnote.NoticeType = ORS_MSGTYPE_DELEGATING
  19861.           orgnote.From = tmpFrom
  19862.           orgnote.Principal = Owner
  19863.           orgnote.OrgTable = ""          
  19864.           Call orgnote.RemoveItem("OrgState")
  19865. 'the invitee might have accepted, so remove the calendar and update busy items
  19866.           Call orgnote.RemoveItem("CalendarDateTime")
  19867.           Call orgnote.ReplaceItemValue("$BusyPriority","2")
  19868. 'update the original invitation only if this is a response document
  19869.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  19870.           Call orgnote.Save(True,True,True)       
  19871.      Case "CounterPropose"
  19872.           orgnote.NoticeType = ORS_MSGTYPE_COUNTER
  19873.           orgnote.Subject = "Appointment Change Proposal - " & note.Topic(0)
  19874.           orgnote.From = tmpFrom
  19875.           orgnote.Principal = Owner
  19876.           orgnote.ProposalSent = True
  19877.           Call orgnote.ReplaceItemValue("_ViewIcon",39)
  19878. 'update the original invitation only if this is a response document
  19879.           If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
  19880.           Call orgnote.Save(True,True,True)
  19881.      Case "AcceptCounterProposal"
  19882.           orgnote.StartDate = note.NewDate          
  19883.           Set trdr = session.CreateDateRange
  19884.           trdr.Text = uidoc.FieldGetText("NewTimeRange")
  19885.           
  19886.           Set startdt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.StartDateTime.TimeOnly)
  19887.           Set enddt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.EndDateTime.TimeOnly)
  19888.           
  19889.           Set orgnote.StartDateTime = startdt
  19890.           Set orgnote.EndDateTime = enddt
  19891.           Set orgnote.TimeRange = trdr
  19892.           If (note.NewRoom(0) <> "") Then orgnote.Room = note.NewRoom          
  19893.           orgnote.CalendarDateTime = orgnote.StartDateTime
  19894.           orgnote.SequenceNum = orgnote.SequenceNum(0) + 1
  19895.           Call orgnote.ReplaceItemValue("$NoPurge",orgnote.EndDateTime(0))
  19896.           Call orgnote.Save(True,True,True)
  19897.      End Select
  19898.      Exit Sub
  19899.      
  19900. ErrorRoutine:
  19901.      Messagebox Error & " (UpdateOriginalInvitation)"
  19902.      Exit Sub
  19903. End Sub
  19904. '++LotusScript Development Environment:2:1:CheckIfConflictExists:1:8
  19905. Function CheckIfConflictExists As Integer
  19906.     *This function is called only if the user specifies conflict warnings in the profile
  19907.     *This function can be called when creation or accepting meeting documents
  19908.     *The AutoProcessNotices agent ALWAYS calls this routine
  19909.     *This routine determines if a meeting time fits within the profile settings and is available 
  19910. %END REM
  19911.      Dim calentries As NotesDocumentCollection
  19912.      Dim localView As NotesView
  19913.      Dim othernote As NotesDocument     
  19914.      Dim tr As NotesDateRange
  19915.      Dim sdt As NotesDateTime
  19916.      Dim edt As NotesDateTime
  19917.      Dim intl As NotesInternational
  19918.      Dim nstartitem As NotesItem     'note startdatetime item
  19919.      Dim nenditem As NotesItem      'note enddatetime item
  19920.      Dim ostartitem As NotesItem      'othernote startdatetime item
  19921.      Dim oenditem As NotesItem      'othernote enddatetime item
  19922.      Dim nstartdt As NotesDateTime
  19923.      Dim nenddt As NotesDateTime
  19924.      Dim ostartdt As NotesDateTime
  19925.      Dim oenddt As NotesDateTime
  19926.      
  19927. 'first, check the profile settings -> if there is a conflict in the profile, then we don't need to check with existing appointments
  19928. 'we only do this check if the autoprocessing agent is running     
  19929.      If (IsAgentProcessing) Then     
  19930.           If(CheckProfileTimes(note)) Then
  19931.                CheckIfConflictExists  = True
  19932.                Exit Function
  19933.           End If
  19934.      End If
  19935.      
  19936.      On Error Goto ErrorRoutine
  19937.      Set localView = db.GetView("Calendar")
  19938.      Set intl = session.International     
  19939.      CheckIfConflictExists = False
  19940. 'get all of the documents that fit under the invited day
  19941. 'othernote refers to existing appointments          
  19942.      Set nstartitem = note.GetFirstItem("StartDateTime")
  19943.      Set nenditem = note.GetFirstItem("EndDateTime")     
  19944.      Set sdt = New NotesDateTime(nstartitem.DateTimeValue.DateOnly & " 00" & intl.TimeSep & "00" & intl.TimeSep & "01")
  19945.    'if this is an event, use the enddatetime date
  19946.      If (note.AppointmentType(0) = "2") Then
  19947.           Set edt = New NotesDateTime(nenditem.DateTimeValue.DateOnly & " 23" & intl.TimeSep & "59" & intl.TimeSep & "59")
  19948.      Else
  19949.           Set edt = New NotesDateTime(nstartitem.DateTimeValue.DateOnly & " 23" & intl.TimeSep & "59" & intl.TimeSep & "59")
  19950.      End If   
  19951.      Set tr = session.CreateDateRange
  19952.      Set tr.StartDateTime = sdt
  19953.      Set tr.EndDateTime = edt
  19954.      Set nstartdt = New NotesDateTime(sdt.DateOnly & " " & nstartitem.DateTimeValue.TimeOnly)
  19955.      Set nenddt = New NotesDateTime(sdt.DateOnly & " " & nenditem.DateTimeValue.TimeOnly)
  19956.      
  19957. 'if the agent is running, we should mark the OrgDontDoubleBook item on the note  
  19958.      If (IsAgentProcessing) Then note.OrgDontDoubleBook = "1"
  19959.      Set calentries = localView.GetAllDocumentsByKey(tr, False)
  19960.      
  19961.      Set othernote = calentries.GetFirstDocument
  19962.      Do While Not(othernote Is Nothing)      
  19963.           If (othernote.Form(0) <> "Task") Then
  19964.                Set ostartitem = othernote.GetFirstItem("StartDateTime")
  19965. check to see if 
  19966.        the invited StartDateTime falls between a scheduled appointment, 
  19967.        the invited EndDateTime falls between a scheduled appointment, 
  19968.        the invitation surrounds an existing appointment
  19969. date1 = the Starting time of the othernote; date2 = the ending time of the othernote; dateItem = the starttime of the invitation,dateItem2 = the endtime of the invitation               
  19970. %END REM
  19971.                Set oenditem = othernote.GetFirstItem("EndDateTime")
  19972.                
  19973. 'if the other document is not busy (i.e. is PencilledIn), then we don't need to check it         
  19974.                If (othernote.BookFreeTime(0) <> "1") Then        
  19975.                     If(ProcessConflict(othernote)) Then               
  19976. 'we need to instantiate the date/time objects correctly
  19977. 'othernote could be an event so the date portion of StartDateTime and EndDateTime are incorrect, but NIF return them to us
  19978.                          Set ostartdt = New NotesDateTime(nstartdt.DAteOnly & " " & ostartitem.DateTimeValue.TimeOnly)
  19979.                          Set oenddt = New NotesDateTime(nstartdt.DAteOnly & " " & oenditem.DateTimeValue.TimeOnly)
  19980.                          
  19981.                          If ((nstartdt.TimeDifference(ostartdt) >= 0) And (oenddt.TimeDifference(nstartdt) > 0 )) Or _
  19982.                          ((nenddt.TimeDifference(ostartdt) > 0) And (oenddt.TimeDifference(nenddt) >= 0 )) Or _
  19983.                          ((ostartdt.TimeDifference(nstartdt) >= 0) And (nenddt.TimeDifference(oenddt) > 0 )) Then
  19984. 'if the autoprocessing agent is running, simply return
  19985.                               If (IsAgentProcessing) Then
  19986.                                    CheckIfConflictExists = True
  19987.                                    Exit Do
  19988.                               End If
  19989.                               If (note.Form(0) = "Appointment") Then
  19990.                                    MessageText$ = "Do you want to schedule this appointment anyway?"
  19991.                               Else
  19992.                                    MessageText$ = "Do you want to Accept anyway?"
  19993.                               End If
  19994.                               If Messagebox("There is already an appointment in this time slot. " & MessageText$, _
  19995.                               MB_YESNO, "Conflict") = IDNO Then 
  19996.                                    CheckIfConflictExists = True
  19997.                                    Exit Do                                                           'we exit so that we don't waste time iterating through the view
  19998.                               Else
  19999.                                    Exit Do                                                           'we exit so that we don't waste time iterating through the view
  20000.                               End If
  20001.                          End If
  20002.                     End If
  20003.                End If
  20004.           End If
  20005.           Set othernote = calentries.GetNextDocument(othernote)
  20006.      Loop     
  20007.      Exit Function
  20008.      
  20009. ErrorRoutine:
  20010.      Messagebox Error & " (CheckIfConflictExists)"
  20011.      Exit Function
  20012. End Function
  20013. '++LotusScript Development Environment:2:2:AddInviteeComment:1:8
  20014. Sub AddInviteeComment
  20015.     *This routine is called to include invitee's comments
  20016. %END REM
  20017.      
  20018.      notice.IncludeComment = "1"
  20019.      notice.Comments = note.Comments
  20020. End Sub
  20021. '++LotusScript Development Environment:2:2:CreateNoticeDocument:1:8
  20022. Sub CreateNoticeDocument(Subject As String,NoticeType As String,ViewIcon As Integer,Mode As Integer)
  20023.     *This routine creates the outgoing notice document, either from the chair to the invitee's 
  20024.      or from an invitee to a chair
  20025.     *This routine adds standard fields to the notice regardless of the type of notice
  20026.     *Parameters
  20027.                 Subject -> value of subject item
  20028.                 NoticeType -> type of notice being sent
  20029.                 ViewIcon -> icon to display in view
  20030.                 Mode -> 1 = chair is sending, 2 = invitee is sending
  20031. %END REM
  20032.      
  20033.      Dim ChairItem As NotesItem   
  20034.      Dim dummydoc As NotesDocument
  20035.      
  20036. 'create the notice object     
  20037.      Set notice = New NotesDocument(db)
  20038. 'determine the context of the current note
  20039.      Context = GetContext
  20040.      Select Case Context
  20041.      Case 1,3
  20042. '1 = non-repeat notice, 3 = repeat notice -> make the notice doc a response to the parentnote
  20043.           If(note.HasItem("ApptUNID")) Then
  20044.                If(note.ApptUNID(0) <> parentnote.UniversalID) Then
  20045.                     Set dummydoc = New NotesDocument(db)
  20046.                     dummydoc.UniversalID = note.ApptUNID(0)
  20047.                     Call notice.MakeResponse(dummydoc)
  20048.                     notice.ApptUNID = note.ApptUNID                    
  20049.                Else                    
  20050.                     Call notice.MakeResponse(parentnote)
  20051.                     notice.ApptUNID = parentnote.UniversalID                    
  20052.                End If
  20053.           Else
  20054.                Call notice.MakeResponse(parentnote)    
  20055.                notice.ApptUNID = parentnote.UniversalID                                   
  20056.           End If
  20057.      Case 2,4
  20058. '2 = repeat instance, 4 = non-repeat instance -> make the notice doc a response to the current note
  20059.           If(note.HasItem("ApptUNID")) Then
  20060.                If(note.ApptUNID(0) <> note.UniversalID) Then
  20061.                     Set dummydoc = New NotesDocument(db)
  20062.                     dummydoc.UniversalID = note.ApptUNID(0)
  20063.                     Call notice.MakeResponse(dummydoc)
  20064.                     notice.ApptUNID = note.ApptUNID                    
  20065.                Else                    
  20066.                     Call notice.MakeResponse(note)
  20067.                     notice.ApptUNID = note.UniversalID                    
  20068.                End If
  20069.           Else
  20070.                Call notice.MakeResponse(note)               
  20071.                notice.ApptUNID = note.UniversalID                   
  20072.           End If
  20073.      End Select
  20074.      
  20075.      Call notice.ReplaceItemValue("$RefOptions","1")
  20076. 'add default items regardless of notice type
  20077.      notice.Form = "Notice"
  20078.      notice.StartDate = note.StartDate
  20079.      notice.StartDateTime = note.StartDateTime
  20080.      notice.EndDateTime = note.EndDateTime
  20081.      notice.AppointmentType = "3"
  20082.      notice.SequenceNum = note.SequenceNum(0)
  20083.      notice.ExcludeFromView = "D"
  20084.      notice.Room = note.Room     
  20085.      notice.Principal = Owner
  20086.      notice.NoticeType = NoticeType
  20087.      notice.Broadcast = note.Broadcast
  20088. 'add the required attendees -> we need to know what context the current document is in
  20089. 'this is because non-repeat notices, repeat notices, and non-repeat appointments have this information
  20090. 'repeat instances need to get this info from their parent
  20091.      Select Case Context
  20092.      Case 1,3,4
  20093. '1 = non-repeat notice,3 = repeat notice,4 = non-repeat instance -> get the values from the current note
  20094.           notice.RequiredAttendees = note.RequiredAttendees
  20095.           notice.OptionalAttendees = note.OptionalAttendees
  20096.      Case 2
  20097. 'the repeat instance document does not have this information -> get it from the parent
  20098.           notice.RequiredAttendees = parentnote.RequiredAttendees
  20099.           notice.OptionalAttendees = parentnote.OptionalAttendees
  20100.      End Select
  20101.      Call notice.ReplaceItemValue("_ViewIcon",ViewIcon)
  20102.      If (note.HasItem("$PublicAccess")) Then Call notice.ReplaceItemValue("$PublicAccess","1")
  20103.      If note.HasItem("tmpRescheduleWhich") Then 
  20104.           If (NoticeType = ORS_MSGTYPE_STATUSUPDATE) Then
  20105.                notice.RescheduleWhich = "0" 'just this one
  20106.           Else
  20107.                notice.RescheduleWhich = note.tmpRescheduleWhich
  20108.           End If
  20109.      End If
  20110.      If (note.HasItem("OrgRepeat")) Then 
  20111.           notice.OrgRepeat = True
  20112.           notice.Broadcast = "1"
  20113.           notice.OriginalStartDate = OriginalStartDate
  20114.           notice.RepeatParentUNID = note.ParentDocumentUNID
  20115.      End If
  20116. 'add computed items
  20117.      If (mode = 1) Then
  20118. 'we are the chair sending this out
  20119.           notice.Topic = note.Subject
  20120.           Set startitem = note.GetFirstItem("StartDateTime")
  20121.           If (note.Room(0) <> "") Then               
  20122.                notice.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
  20123.           Else
  20124.                notice.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
  20125.           End If
  20126.           notice.Chair = Owner
  20127. 'for 4.51+, we only include the body field if the chair is sending the notice          
  20128.           If (note.HasItem("Body")) Then
  20129.                Set ChairItem = note.GetFirstItem("Body")     
  20130.                Call notice.CopyItem(ChairItem,"Body")
  20131.           End If          
  20132. 'we do not add the send to for chairs; this is upto the calling function
  20133.      Else
  20134. 'we are the invitee sending this out
  20135.           notice.Topic = note.Topic
  20136.           notice.Subject = Subject & " " & note.Topic(0)
  20137.           notice.Chair = note.Chair
  20138.           'if this is a delegation notice, include the body
  20139.           If (NoticeType = ORS_MSGTYPE_DELEGATE) Then
  20140.                If (note.HasItem("Body")) Then
  20141.                     Set ChairItem = note.GetFirstItem("Body")     
  20142.                     Call notice.CopyItem(ChairItem,"Body")
  20143.                End If
  20144.           End If          
  20145.      End If
  20146. End Sub
  20147. '++LotusScript Development Environment:2:1:GetContext:1:8
  20148. Function GetContext As Integer
  20149.      GetContext = GetContextSub (note)
  20150. End Function
  20151. '++LotusScript Development Environment:2:2:ResurrectParentDoc:1:8
  20152. Sub ResurrectParentDoc
  20153.     *This routine is called whenever a child document is opened and the parentnote cannot be found
  20154.     *This routine creates a parent document and uses the child document for certain info
  20155. %END REM
  20156.      Dim body As NotesItem
  20157.      
  20158.      Set parentnote = New NotesDocument(db)
  20159.      
  20160.      If (note.HasItem("Body")) Then
  20161.                 Set body = note.GetFirstItem("Body")
  20162.           Call parentnote.CopyItem(body,"Body")
  20163.      End If
  20164. 'add standard fields     
  20165.      parentnote.UniversalID = note.ParentDocumentUNID     
  20166.      parentnote.StartDate = note.StartDate
  20167.      parentnote.StartDateTime = note.StartDateTime
  20168.      parentnote.EndDateTime = note.EndDateTime
  20169.      parentnote.AppointmentType = "3"
  20170.      parentnote.Chair = note.Chair
  20171.      parentnote.RequiredAttendees = note.RequiredAttendees
  20172.      parentnote.OptionalAttendees = note.OptionalAttendees
  20173.      parentnote.Room = note.Room
  20174.      parentnote.ExcludeFromView = "D"
  20175.      parentnote.SequenceNum = note.SequenceNum
  20176.      parentnote.Subject = note.Topic
  20177.      parentnote.Topic = note.Topic
  20178.      parentnote.Principal = note.Chair
  20179.      parentnote.Form = "Appointment"
  20180.      parentnote.From = note.From
  20181.      parentnote.NoticeType = ORS_MSGTYPE_ACCEPT
  20182.      Call parentnote.ReplaceItemValue("$BusyName",Owner)
  20183.      Call parentnote.ReplaceItemValue("$BusyPriority","1")
  20184.      Call parentnote.ReplaceItemValue("$NoPurge",parentnote.EndDateTime(0))
  20185.      Call parentnote.ReplaceItemValue("$ExpandGroups","3")
  20186.      Call parentnote.ReplaceItemValue("$PublicAccess","1")
  20187.      Call parentnote.ReplaceItemValue("_ViewIcon",158)
  20188.      Set sdt = New NotesDateTime(parentnote.StartDateTime(0))
  20189.      Set edt = New NotesDateTime(parentnote.EndDateTime(0))
  20190.      Set tr = session.CreateDateRange
  20191.      Set tr.StartDateTime = sdt
  20192.      Set tr.EndDateTime = edt
  20193.      Set parentnote.TimeRange = tr
  20194.      parentnote.PostedDate = parentnote.StartDateTime
  20195.      parentnote.CalendarDateTime = parentnote.StartDateTime
  20196.      parentnote.BookFreeTime = "0"
  20197.      parentnote.OrgTable = ORS_ITEM_CALENDAR
  20198.      
  20199.      If (note.HasItem("FromDomain")) Then parentnote.FromDomain = note.FromDomain
  20200.      
  20201.      Call MarkTempFields(parentnote)
  20202.      Call parentnote.Save(True,True,True)
  20203.      Call parentnote.RemoveFromFolder("($Inbox)")
  20204. End Sub
  20205. '++LotusScript Development Environment:2:2:CreateResourceNotice:1:8
  20206. Sub CreateResourceNotice(NoticeType As String,ResourceType As String,ResourceName As String,doc As NotesDocument)
  20207.     *This routine is called to create a notice document for rooms/resources
  20208.     *Paramaters
  20209.                 NoticeType is the type of notice being sent
  20210.                 ResourceType is the type of resource we sending the notice to
  20211.                 ResourceName is the name of the resource we are mailing to (in Abbreviated format)
  20212.                 doc is the document that contains values we want to copy from to include on the notice (useful for repeats!)
  20213. %END REM     
  20214.      
  20215.      Set notice = New NotesDocument(db)
  20216.      
  20217.      notice.Form = "Notice"
  20218.      notice.StartDate = doc.StartDate
  20219.      notice.StartDateTime = doc.StartDateTime
  20220.      notice.EndDateTime = doc.EndDateTime
  20221.      notice.TimeRange = doc.TimeRange
  20222.      notice.Principal = Owner
  20223.      notice.Chair = Owner
  20224. 'get the context of the current note
  20225.      context = GetContext
  20226.      Select Case context
  20227.      Case 1,3:
  20228. '1 = non-repeat notice,3 = repeat notice -> use parentnote values
  20229.           notice.ApptUNID = parentnote.UniversalId
  20230.           notice.SequenceNum = parentnote.SequenceNum(0)
  20231.      Case 2,4
  20232. '2 = repeat instance, 4 = non-repeat instance -> use the document passed in
  20233.           notice.ApptUNID = doc.UniversalID
  20234.           If Not(doc.HasItem("SequenceNum")) Then doc.SequenceNum = 1
  20235.           notice.SequenceNum = doc.SequenceNum(0)               
  20236.      End Select
  20237.      notice.NoticeType = NoticeType
  20238.      notice.OrgState = ResourceType
  20239.      notice.SendTo = ResourceName         
  20240.      notice.ResourceName = ResourceName
  20241.      notice.Topic = doc.Subject
  20242.      If (doc.HasItem("$PublicAccess")) Then Call notice.ReplaceItemValue("$PublicAccess","1")
  20243. 'if this is a room, add the capacity
  20244.      If (ResourceType = ORS_STATE_ROOM) Then 
  20245.           notice.Capacity = Evaluate("@Elements(@Trim(RequiredAttendees:OptionalAttendees:Chair))",doc)
  20246.           If (doc.HasItem("OriginalRoom")) Then notice.OriginalRoom = doc.OriginalRoom
  20247.      End If
  20248. 'if this is a notice for a repeat set, add the necessary items
  20249.      If (doc.HasItem("RepeatDates")) Then
  20250.           notice.RepeatDates = doc.RepeatDates
  20251.           notice.RepeatIds = doc.RepeatIds
  20252.      Else
  20253.           If (doc.HasItem("OrgRepeat")) Then notice.OrgRepeat = True          
  20254.      End If
  20255. End Sub
  20256. '++LotusScript Development Environment:2:1:IsRemoved:1:8
  20257. Function IsRemoved(KeyValue As String,UserType As String) As Integer
  20258.     *This function is used to determine if a user/resource has been uninvited from a meeting
  20259.  *This function is used to determine if a resource/room should not be displayed in the Invitee Responses dialog
  20260. %END REM
  20261.      
  20262.      Dim index As Integer
  20263.      Dim keyname As New NotesName(KeyValue)
  20264.      Dim lookupname As NotesName
  20265.      
  20266.      IsRemoved = False
  20267.      
  20268.      Select Case UserType
  20269.      Case ORS_STATE_RESOURCE
  20270. 'this is a resource, look to see if this resource is in the RequiredResources field; if it isn't, it was uninvited
  20271.           tmpResourcesInvited = note.RequiredResources
  20272.           index = 0
  20273.           Do While (index <= Ubound(tmpResourcesInvited))
  20274.                Set lookupname = New NotesName(tmpResourcesInvited(index)) 
  20275.                If (Lcase(keyname.Canonical) = Lcase(lookupname.Canonical)) Then Exit Function
  20276.                index = index + 1
  20277.           Loop
  20278. 'if we got this far, then we didn't find the resource, it was removed
  20279.           IsRemoved = True
  20280.      Case ORS_STATE_ROOM
  20281. 'this is a room; see if it matches the value in the room field
  20282.           Set lookupname = New NotesName(note.Room(0))
  20283.           
  20284.           If (Lcase(keyname.CAnonical) <> Lcase(lookupname.Canonical)) Then IsRemoved = True
  20285.      Case Else
  20286.           tmpPeopleUninvited = note.Uninvited
  20287.           index = 0
  20288.           Do While (index <= Ubound(tmpPeopleUninvited))
  20289.                Set lookupname = New Notesname(tmpPeopleUninvited(index))               
  20290.                If (Lcase(keyname.Canonical) = Lcase(lookupname.Canonical)) Then 
  20291.                     IsRemoved = True                    
  20292.                     Exit Function
  20293.                End If
  20294.                index = index + 1
  20295.           Loop   
  20296.      End Select
  20297. End Function
  20298. '++LotusScript Development Environment:2:1:ProcessConflict:1:8
  20299. Function ProcessConflict(othernote As NotesDocument) As Integer
  20300.     *This routine is called from CheckIfConflictExists to see if the document
  20301.      we are comparing to can be processed
  20302. %END REM
  20303.      
  20304. 'default the return to False since this is what we are really checking for    
  20305.      ProcessConflict = False
  20306. 'if the two documents we are comparing are the same, then do not check for conflicts     
  20307.      If (note.UniversalID = othernote.UniversalID) Then Exit Function
  20308.      
  20309. 'if this is a reschedule, we need to check a few things     
  20310.      If (note.NoticeType(0) = ORS_MSGTYPE_RESCHEDULE) Then
  20311. 'first, if the reschedule notice is being compared to its parent, do not check for conflicts
  20312.           If(note.ParentDocumentUNID = othernote.UniversalID) Then 
  20313.                Exit Function
  20314.           Else               
  20315. 'if we are not comparing ourselves to the parent, then check to see if only the room is changing
  20316. 'if the room is the only thing that is changing, then we don't check for conflicts
  20317.                If ((note.StartDateTime(0) = parentnote.StartDateTime(0)) And (note.EndDateTime(0) = parentnote.EndDateTime(0))) Then Exit Function 
  20318.           End If
  20319.      End If
  20320. 'since we made it this far, we can check for conflicts
  20321.      ProcessConflict = True
  20322. End Function
  20323. '++LotusScript Development Environment:2:1:CheckProfileTimes:1:8
  20324. Function CheckProfileTimes(doc As NotesDocument) As Integer
  20325.     *This function is call by CheckIfConflictExists
  20326.     *It compares the times of doc to the profile to make sure the times are within the profile settings
  20327.     *This function returns true if the time is not within the defined profile times
  20328. %END REM
  20329.      Dim dstartitem As NotesItem
  20330.      Dim denditem As NotesItem
  20331.      
  20332.      CheckProfileTimes = True
  20333.      
  20334.      Set dstartitem = doc.GetFirstItem("StartDateTime")
  20335.      
  20336.      Select Case Weekday(doc.StartDateTime(0))
  20337.      Case 1
  20338. 'sunday
  20339.           If (profile.Sunday(0) <> "1") Then Exit Function                     'this day is not selected in the profile
  20340.           ValidTimes = profile.GetItemValue("$Times1")
  20341.      Case 2
  20342. 'monday
  20343.           If (profile.Monday(0) <> "2") Then Exit Function                'this day is not selected in the profile
  20344.           ValidTimes = profile.GetItemValue("$Times2")
  20345.      Case 3
  20346. 'Tuesday
  20347.           If (profile.Tuesday(0) <> "3") Then  Exit Function            'this day is not selected in the profile
  20348.           ValidTimes = profile.GetItemValue("$Times3")
  20349.      Case 4
  20350. 'wednesday
  20351.           If (profile.Wednesday(0) <> "4") Then Exit Function            'this day is not selected in the profile
  20352.           ValidTimes = profile.GetItemValue("$Times4")
  20353.      Case 5
  20354. 'thursday
  20355.           If (profile.Thursday(0) <> "5") Then Exit Function            'this day is not selected in the profile
  20356.           ValidTimes = profile.GetItemValue("$Times5")
  20357.      Case 6
  20358. 'friday
  20359.           If (profile.Friday(0) <> "6") Then Exit Function                'this day is not selected in the profile
  20360.           ValidTimes = profile.GetItemValue("$Times6")
  20361.      Case 7
  20362. 'saturday
  20363.           If (profile.Saturday(0) <> "7") Then Exit Function            'this day is not selected in the profile
  20364.           ValidTimes = profile.GetItemValue("$Times7")
  20365.      End Select
  20366.      
  20367.      Set denditem= doc.GetFirstItem("EndDateTime")
  20368. 'we must now make sure that the times fall within the profile settings
  20369.      For x = 0 To Ubound(ValidTimes)
  20370. 'if the time falls within a profile range, then there is no conflict and we can exit
  20371.           Set date1 = New NotesDateTime(dstartitem.DateTimeValue.DateOnly & " " & Timevalue(ValidTimes(x)))
  20372.           Set date2 = New NotesDateTime(dstartitem.DateTimeValue.DateOnly & " " & Timevalue(ValidTimes(x+1)))
  20373.           
  20374.           If (dstartitem.DateTimeValue.TimeDifference(date1) >= 0) And (denditem.DateTimeValue.TimeDifference(date2) <= 0) Then          
  20375.                CheckProfileTimes = False
  20376.                Exit Function
  20377.           End If
  20378.           x = x + 1
  20379.      Next
  20380. End Function
  20381. '++LotusScript Development Environment:2:1:GetSubjectText:1:8
  20382. Function GetSubjectText(userDate As Variant) As String
  20383.      Dim selMonth As String
  20384.      Dim selTime As Variant
  20385.      
  20386.      Select Case Month(userDate)
  20387.      Case 1
  20388.           selMonth = CS_MONTH_JAN
  20389.      Case 2
  20390.           selMonth = CS_MONTH_FEB
  20391.      Case 3
  20392.           selMonth = CS_MONTH_MAR
  20393.      Case 4
  20394.           selMonth = CS_MONTH_APR
  20395.      Case 5
  20396.           selMonth = CS_MONTH_MAY
  20397.      Case 6
  20398.           selMonth = CS_MONTH_JUNE
  20399.      Case 7
  20400.           selMonth = CS_MONTH_JULY
  20401.      Case 8
  20402.           selMonth = CS_MONTH_AUG
  20403.      Case 9
  20404.           selMonth = CS_MONTH_SEPT
  20405.      Case 10
  20406.           selMonth = CS_MONTH_OCT
  20407.      Case 11
  20408.           selMonth = CS_MONTH_NOV
  20409.      Case 12
  20410.           selMonth = CS_MONTH_DEC       
  20411.      End Select
  20412.      
  20413.      selTime = Evaluate(|@Text(StartDateTime;"S1T1Z2")|,note)
  20414.      GetSubjectText = Cstr(Day(userDate)) & " " & selMonth & " " & selTime(0)
  20415. End Function
  20416. '++LotusScript Development Environment:2:1:GetContextSub:1:8
  20417. Function GetContextSub ( targetnote As NotesDocument ) As Integer
  20418. returns the context in which the current note exists
  20419. 1 = non repeat notice
  20420. 2 = repeat instance
  20421. 3 = repeat notice
  20422. 4 = original invitation     
  20423. %END REM
  20424.      If (targetnote.IsResponse) Then
  20425. 'the user opened up a response document; see what type of response this is
  20426.           If Not(targetnote.HasItem("OrgRepeat")) Then
  20427. 'this is a non-repeat notice
  20428.                GetContextSub = 1
  20429.           Else
  20430.                If (parentnote.IsResponse) Then
  20431. 'this is a repeat notice
  20432.                     GetContextSub = 3
  20433.                Else
  20434.                     GetContextSub = 2
  20435.                End If
  20436.           End If
  20437.      Else
  20438. 'this is the main invitation
  20439.           GetContextSub = 4
  20440.      End If
  20441. End Function
  20442. ( H `
  20443. )D    [T
  20444. #K4    -
  20445. #K4    -
  20446. O=Lotus Notes
  20447. O=Lotus Notes
  20448. PURSAFO
  20449. |.:#U
  20450. O=Lotus Notes
  20451. CN=Lotus Notes Template Development/O=Lotus Notes
  20452. PURSAFO
  20453. Fde!f^^
  20454. %>"5c
  20455. $ScriptLib
  20456. $ScriptLib_O
  20457. $TITLE
  20458. $Flags
  20459. $PublicAccess
  20460. '++LotusScript Development Environment:2:5:(Options):0:74
  20461. Option Public
  20462. Use "ObjectVariables"
  20463. '++LotusScript Development Environment:2:5:(Forward):0:1
  20464. Declare Sub Initialize
  20465. Declare Sub CreateNewDoc(nDocType As Integer)
  20466. Declare Sub CreateMailMemo(pNote As NotesDocument)
  20467. Declare Sub CreateCalendarEntry(pNote As NotesDocument)
  20468. Declare Sub CreateTask(pNote As NotesDocument)
  20469. Declare Function GetSendNames(pNote As NotesDocument) As Variant
  20470. Declare Function GetCopyNames(pNote As NotesDocument) As Variant
  20471. Declare Sub AddBodyToNewNote(pNewNote As NotesDocument, pSourceNote As NotesDocument)
  20472. '++LotusScript Development Environment:2:5:(Declarations):0:10
  20473. Const NEW_MEMO = 0
  20474. Const NEW_CALENDAR = 1
  20475. Const NEW_TASK = 2
  20476. '++LotusScript Development Environment:2:2:Initialize:1:10
  20477. Sub Initialize
  20478.      
  20479. End Sub
  20480. '++LotusScript Development Environment:2:2:CreateNewDoc:1:8
  20481. Sub CreateNewDoc(nDocType As Integer)
  20482.      
  20483.      Set session = New NotesSession
  20484.      Set ws = New NotesUIWorkspace
  20485.      Set db = session.CurrentDatabase
  20486.      
  20487.      
  20488.      'if there is a document currently open, and it is a new document, we cannot proceed
  20489.      Set uidoc = ws.CurrentDocument
  20490.      If Not(uidoc Is Nothing) Then
  20491.           If uidoc.IsNewDoc Then
  20492.                Messagebox "This action cannot be executed on a new document.",16,"Error"
  20493.                Exit Sub
  20494.           End If
  20495.           Set note = uidoc.Document          
  20496.      Else
  20497.           Set selecteddocs = db.UnprocessedDocuments
  20498.           If (selecteddocs.Count = 0) Then 
  20499.                Messagebox "Please select a document before executing this command.",16,"Error"
  20500.                Exit Sub
  20501.           End If
  20502.           Set note = selecteddocs.GetFirstDocument
  20503.      End If
  20504.      
  20505.      
  20506.      Select Case nDocType
  20507.      Case NEW_MEMO
  20508.           Call CreateMailMemo(note)
  20509.      Case NEW_CALENDAR
  20510.           Call CreateCalendarEntry(note)
  20511.      Case NEW_TASK
  20512.           Call CreateTask(note)
  20513.      End Select
  20514.      
  20515. End Sub
  20516. '++LotusScript Development Environment:2:2:CreateMailMemo:1:8
  20517. Sub CreateMailMemo(pNote As NotesDocument)
  20518.      
  20519.      Dim mail As NotesDocument
  20520.      Dim rtitem As NotesRichTextItem
  20521.      
  20522.      Set mail = New NotesDocument(db)
  20523.      
  20524. 'set/retrieve standard mail values regardless of pNote type
  20525.      mail.Form = "Memo"
  20526.      mail.Principal = Owner
  20527.      mail.tmpSendTo = GetSendNames(pNote)
  20528.      mail.SendTo = Evaluate("@Trim(@Unique(tmpSendTo))",mail)
  20529.      mail.tmpCopyTo = GetCopyNames(pNote)
  20530.      mail.CopyTo = Evaluate("@Trim(@Unique(tmpCopyTo))",mail)
  20531.      
  20532.      If (pNote.NoticeType(0) <> "J") Then Call AddBodyToNewNote(mail,pNote)
  20533.      
  20534.      Call mail.RemoveItem("tmpSendTo")
  20535.      Call mail.RemoveItem("tmpCopyTo")
  20536.      
  20537.      
  20538. 'set/retrieve mail values depending on pNote type
  20539.      Select Case pNote.Form(0)
  20540.      Case "Memo","Reply","Appointment","Task"
  20541.           mail.Subject = pNote.Subject
  20542.      Case "Notice"
  20543.           mail.Subject = pNote.Topic
  20544.      Case Else
  20545.           mail.Subject = pNote.Subject
  20546.      End Select
  20547.      
  20548.      mail.Logo = session.GetEnvironmentString("DefaultLogo",False)
  20549.      mail.tmpnewdoc = True
  20550.      Call ws.EditDocument(True,mail)
  20551. End Sub
  20552. '++LotusScript Development Environment:2:2:CreateCalendarEntry:1:8
  20553. Sub CreateCalendarEntry(pNote As NotesDocument)
  20554.      
  20555.      Dim entry As NotesDocument
  20556.      Dim rtitem As NotesRichTextItem
  20557.      Dim startdt As New NotesDateTime("")
  20558.      Dim enddt As New NotesDateTime("")
  20559.      Dim trdr As NotesDateRange
  20560.      Dim entryitem As NotesItem
  20561.      
  20562.      Dim sForm As String
  20563.      Dim nMinutes As Integer
  20564.      Dim nSeconds As Integer
  20565.      
  20566.      If (profile Is Nothing) Then Call GetCalendarOwner
  20567.      
  20568.      Set entry = New NotesDocument(db)
  20569.      
  20570. 'add standard entry items
  20571.      entry.AppointmentType = profile.CalEntryType(0)
  20572.      entry.Form = "Appointment"
  20573.      entry.SendTo = GetSendNames(pNote)
  20574.      entry.CopyTo = GetCopyNames(pNote)
  20575.      entry.Chair = Owner
  20576.      entry.Principal = Owner
  20577.      entry.tmpOwner = Owner
  20578.      entry.From = session.UserName
  20579.      
  20580.      
  20581.      
  20582.      If (pNote.NoticeType(0) <> "J") Then Call AddBodyToNewNote(entry,pNote)          
  20583.      
  20584. 'add entry items depending upon pNote type
  20585.      sForm = pNote.Form(0)
  20586.      Select Case sForm
  20587.      Case "Memo","Reply","Task","Personal Stationery"
  20588.           startdt.SetNow          
  20589.           entry.Subject = pNote.Subject
  20590. 'add the startdatetime, enddatetime, timerange, and reminder time
  20591.           If (sForm = "Task") Then
  20592. 'this is a task
  20593. 'first, look for a StartDateTime item
  20594.                If (pNote.StartDateTime(0) <> "") Then
  20595.                     Set startitem = pNote.GetFirstItem("StartDateTime")            
  20596.                     Set startdt = New NotesDateTime(startitem.DateTimeValue.DateOnly & " " & startdt.TimeOnly)                    
  20597. 'if we don't have a startdate item, look for a duedate item                    
  20598.                Elseif (pNote.DueDateTime(0) <> "") Then
  20599.                     Set startitem = pNote.GetFirstItem("DueDateTime")
  20600.                     Set startdt = New NotesDateTime(startitem.DateTimeValue.DateOnly & " " & startdt.TimeOnly)
  20601.                End If
  20602.           End If
  20603. 'set the time component          
  20604.           nMinutes = Minute(startdt.LSLocalTime)
  20605.           nSeconds = 0 - Second(startdt.LSLocalTime)
  20606.           
  20607.           If (nMinutes > 45) Then          
  20608.                startdt.AdjustMinute(60 - nMinutes)
  20609.           Elseif (nMinutes > 30) Then
  20610.                startdt.AdjustMinute(45 - nMinutes)
  20611.           Elseif (nMinutes > 15) Then
  20612.                startdt.AdjustMinute(30 - nMinutes)
  20613.           Else
  20614.                startdt.AdjustMinute(15 - nMinutes)
  20615.           End If               
  20616.           
  20617.           startdt.AdjustSecond(nSeconds)
  20618.           
  20619.           Set entry.StartDate = startdt
  20620.           Set entry.StartDateTime = startdt
  20621.           Set entry.ReminderTime = startdt
  20622.           
  20623.           Set enddt = New NotesDateTime(startdt.LSLocalTime)
  20624.           enddt.AdjustMinute(profile.DefaultDuration(0))
  20625.           
  20626.           Set trdr = session.CreateDateRange
  20627.           Set trdr.StartDateTime = startdt
  20628.           Set trdr.EndDateTime = enddt
  20629.           Set entry.TimeRange = trdr
  20630.      Case "Appointment","Notice"
  20631.           If (sForm = "Appointment") Then
  20632.                entry.Subject = pNote.Subject
  20633.           Else
  20634.                entry.Subject = pNote.Topic
  20635.           End If
  20636.           
  20637. 'copy the startdatetime,enddatetime,timerange, and reminder time
  20638.           Set entryitem = pNote.GetFirstItem("StartDateTime")          
  20639.           If Not(entryitem Is Nothing) Then
  20640.                Call entryitem.CopyitemToDocument(entry,"StartDate")
  20641.                Call entryitem.CopyItemToDocument(entry,"StartDateTime")
  20642.                Call entryitem.CopyItemToDocument(entry,"ReminderTime")
  20643.           End If
  20644.           
  20645.           Set entryitem = pNote.GetFirstItem("EndDateTime")
  20646.           If Not(entryitem Is Nothing) Then Call entryitem.CopyItemToDocument(entry,"EndDateTime")
  20647.           
  20648.           Set entryitem = pNote.GetFirstItem("TimeRange")
  20649.           If Not (entryitem Is Nothing) Then Call entryitem.CopyItemToDocument(entry,"TimeRange")
  20650.      Case Else
  20651.           startdt.SetNow          
  20652.           entry.Subject = pNote.Subject
  20653.           nMinutes = Minute(startdt.LSLocalTime)
  20654.           nSeconds = 0 - Second(startdt.LSLocalTime)
  20655.           
  20656.           If (nMinutes > 45) Then          
  20657.                startdt.AdjustMinute(60 - nMinutes)
  20658.           Elseif (nMinutes > 30) Then
  20659.                startdt.AdjustMinute(45 - nMinutes)
  20660.           Elseif (nMinutes > 15) Then
  20661.                startdt.AdjustMinute(30 - nMinutes)
  20662.           Else
  20663.                startdt.AdjustMinute(15 - nMinutes)
  20664.           End If               
  20665.           
  20666.           startdt.AdjustSecond(nSeconds)
  20667.           
  20668.           Set entry.StartDate = startdt
  20669.           Set entry.StartDateTime = startdt
  20670.           Set entry.ReminderTime = startdt
  20671.           
  20672.           Set enddt = New NotesDateTime(startdt.LSLocalTime)
  20673.           enddt.AdjustMinute(profile.DefaultDuration(0))
  20674.           
  20675.           Set trdr = session.CreateDateRange
  20676.           Set trdr.StartDateTime = startdt
  20677.           Set trdr.EndDateTime = enddt
  20678.           Set entry.TimeRange = trdr
  20679.      End Select
  20680.      entry.ExcludeFromView = "D"
  20681.      entry.tmpNewDoc = True
  20682.      Call ws.EditDocument(True,entry)
  20683. End Sub   
  20684. '++LotusScript Development Environment:2:2:CreateTask:1:8
  20685. Sub CreateTask(pNote As NotesDocument)
  20686.      
  20687.      Dim task As NotesDocument
  20688.      Dim rtitem As NotesRichTextItem
  20689.      Dim sType As String
  20690.      Dim dueitem As NotesItem
  20691.      Dim tmpSendTo As Variant
  20692.      Dim tmpCopyTo As Variant
  20693.      
  20694.      Set task = New NotesDocument(db)
  20695.      
  20696. 'add standard items
  20697.      task.Form = "Task"
  20698.      task.AssignState = 0
  20699.      task.OrgTable = "T0"
  20700.      
  20701.      If (pNote.NoticeType(0) <> "J") Then Call AddBodyToNewNote(task,pNote)
  20702. 'for tasks, the cc = SendTo + CopyTo     
  20703.      tmpSendTo = GetSendNames(pNote)
  20704.      tmpCopyTo = GetCopyNames(pNote)
  20705.      task.tmpCopyTo1 = tmpSendTo
  20706.      task.tmpCopyTo2 = tmpCopyTo
  20707.      task.CopyTo = Evaluate("@Trim(tmpCopyTo1:tmpCopyTo2)",task)
  20708.      task.RemoveItem "tmpCopyTo1"
  20709.      task.RemoveItem "tmpCopyTo2"
  20710.      
  20711.      task.~_ViewIcon = 168
  20712.      
  20713. 'get specific items from pNote type
  20714.      sType = pNote.Form(0)
  20715.      Select Case sType
  20716.      Case "Memo","Reply"
  20717.           task.Subject = pNote.Subject
  20718.      Case "Appointment","Notice"
  20719.           If (sType = "Appointment") Then
  20720.                task.Subject = pNote.Subject
  20721.           Else
  20722.                taskSubject = pNote.Topic(0)
  20723.           End If
  20724.           
  20725.           Set dueitem = pNote.GetFirstItem("StartDateTime")
  20726.           Call dueitem.CopyItemtoDocument(task,"DueDateTime")
  20727.      Case "Task"
  20728.           task.Subject = pNote.Subject
  20729.           If (pNote.StartDateTime(0) <> "") Then
  20730.                Set dueitem = pNote.GetFirstItem("StartDateTime")
  20731.                Call dueitem.CopyItemToDocument(task,"StartDateTime")
  20732.           End If
  20733.           If (pNote.DueDateTime(0) <> "") Then
  20734.                Set dueitem = pNote.GetFirstItem("DueDateTime")
  20735.                Call dueitem.CopyItemToDocument(task,"DueDateTime")
  20736.           End If
  20737.      Case Else
  20738. 'not sure what we have, so assume subject item exists, but don't prefill-in any date info
  20739.           task.Subject = pNote.Subject         
  20740.      End Select
  20741.      task.ExcludeFromView = "D"
  20742.      task.tmpnewdoc = True
  20743.      Call ws.EditDocument(True,task)
  20744. End Sub
  20745. '++LotusScript Development Environment:2:1:GetSendNames:1:8
  20746. Function GetSendNames(pNote As NotesDocument) As Variant
  20747.      Dim sSendItem As String
  20748.      Dim vSendNames As Variant
  20749.      Dim vRetNames() As Variant
  20750.      Dim nItems As Integer
  20751.      Dim x As Integer
  20752.      Dim namUser As New NotesName(session.UserName)
  20753.      Dim nam As NotesName
  20754.      
  20755.      Select Case pNote.Form(0)
  20756.      Case "Memo","Reply"
  20757.           sSendItem = "SendTo"
  20758.      Case "Appointment","Notice"
  20759.           sSendItem = "RequiredAttendees"
  20760.      Case Else
  20761.           sSendItem = "SendTo"
  20762.      End Select
  20763.      
  20764.      vSendNames = pNote.GetItemValue(sSendItem)
  20765.      
  20766.      If (vSendNames(0) = "") And (Ubound(vSendNames) = 0) Then
  20767.           nItems = 1
  20768.      Else
  20769.           nItems = Ubound(vSendNames) + 2
  20770.      End If
  20771.      Redim vRetNames(nItems)
  20772.      
  20773.      Forall names In vSendNames
  20774. 'make sure we don't have a blank value & the name <> current user          
  20775.           If (names <> "") Then
  20776.                Set nam = New NotesName(names)
  20777.                If Lcase(nam.Common) <> Lcase(namUser.Common) Then
  20778.                     vRetNames(x) = names
  20779.                     x = x+1
  20780.                End If
  20781.           End If
  20782.      End Forall
  20783.      
  20784.      If (pNote.HasItem("Principal")) Then
  20785.           Set nam = New NotesName(pNote.Principal(0))
  20786.           If Lcase(nam.Common) <> Lcase(namUser.Common) Then
  20787.                If (pNote.HasItem("FromDomain")) Then          
  20788.                     vRetNames(x) = pNote.Principal(0) & "@" & pNote.FromDomain(0)
  20789.                Else
  20790.                     vRetNames(x) = pNote.Principal(0)
  20791.                End If
  20792.           End If
  20793.      Else
  20794.           Set nam = New NotesName(pNote.From(0))
  20795.           If Lcase(nam.Common) <> Lcase(namUser.Common) Then
  20796.                If (pNote.HasItem("FromDomain")) Then          
  20797.                     vRetnames(x) = pNote.From(0) & "@" & pNote.FromDomain(0)
  20798.                Else
  20799.                     vRetNames(x) = pNote.From(0)
  20800.                End If
  20801.           End If
  20802.      End If
  20803.      
  20804.      GetSendNames = vRetNames
  20805.      
  20806. End Function  
  20807. '++LotusScript Development Environment:2:1:GetCopyNames:1:8
  20808. Function GetCopyNames(pNote As NotesDocument) As Variant
  20809.      Dim sCopyItem As String
  20810.      Dim vCopyNames As Variant
  20811.      Dim vRetnames() As Variant
  20812.      Dim x As Integer
  20813.      Dim nItems As Integer
  20814.      Dim namUser As New NotesName(session.UserName)
  20815.      
  20816.      Select Case pNote.Form(0)
  20817.      Case "Memo","Reply"
  20818.           sCopyItem = "CopyTo"
  20819.      Case "Appointment","Notice"
  20820.           sCopyItem = "OptionalAttendees"
  20821.      Case Else
  20822.           sCopyItem = "CopyTo"
  20823.      End Select
  20824.      
  20825.      vCopyNames = pNote.GetItemValue(sCopyItem)
  20826.      
  20827.      If (vCopyNames(0) = "") And (Ubound(vCopyNames) = 0) Then
  20828.           nItems = 1
  20829.      Else
  20830.           nItems = Ubound(vCopyNames) + 1
  20831.      End If
  20832.      
  20833.      Redim vRetNames(nItems)
  20834.      
  20835.      Forall names In vCopyNames
  20836.           If (names <> "") Then
  20837.                Set nam = New NotesName(names)
  20838.                If Lcase(nam.Common) <> Lcase(namUser.Common) Then
  20839.                     
  20840.                     vRetNames(x) = names
  20841.                     x = x+1
  20842.                End If               
  20843.           End If
  20844.      End Forall
  20845.      
  20846.      GetCopyNames = vRetNames
  20847. End Function  
  20848. '++LotusScript Development Environment:2:2:AddBodyToNewNote:1:8
  20849. Sub AddBodyToNewNote(pNewNote As NotesDocument, pSourceNote As NotesDocument)
  20850.      Dim rtitemSource As NotesRichTextItem
  20851.      Dim rtitemNew As NotesRichTextItem
  20852.      Dim dtitem As NotesItem
  20853.      
  20854. 'first, get the body field of the source note
  20855.      Set rtitemSource = pSourceNote.GetFirstItem("Body")
  20856.      
  20857.      
  20858. 'now, create the new Body item
  20859.      Set rtitemNew = New NotesRichTextItem(pNewNote,"Body")
  20860.      rtitemNew.AddNewLine(2)
  20861.      rtitemNew.AppendText "---------------"
  20862.      rtitemNew.AddNewLine(1)
  20863.      
  20864.      
  20865.      Select Case pSourceNote.Form(0)
  20866.      Case "Appointment","Notice"
  20867.           If (pSourceNote.StartDateTime(0) <> "") Then
  20868.                Set dtitem = pSourceNote.GetFirstItem("StartDateTime")          
  20869.                Call rtitemNew.AppendText("Start:")
  20870.                rtitemNew.AddTab(1)
  20871.                rtitemNew.AppendText(dtitem.Values(0))
  20872.                Call rtitemNew.AddNewLine(1)
  20873.           End If
  20874.           If (pSourceNote.EndDateTime(0) <> "") Then
  20875.                Set dtitem = pSourceNote.GetFirstItem("EndDateTime")          
  20876.                Call rtitemNew.AppendText("End:")
  20877.                rtitemNew.AddTab(1)
  20878.                rtitemNew.AppendText(dtitem.Values(0))
  20879.                Call rtitemNew.AddNewLine(1)
  20880.           End If
  20881.           rtitemNew.AddNewLine(2)
  20882.      Case "Task"
  20883.           If (pSourceNote.StartDateTime(0) <> "") Then
  20884.                Set dtitem = pSourceNote.GetFirstItem("StartDateTime")          
  20885.                Call rtitemNew.AppendText("Start date:")
  20886.                rtitemNew.AddTab(1)
  20887.                rtitemNew.AppendText(dtitem.Values(0))
  20888.                Call rtitemNew.AddNewLine(1)
  20889.           End If
  20890.           If (pSourceNote.DueDateTime(0) <> "") Then
  20891.                Set dtitem = pSourceNote.GetFirstItem("DueDateTime")          
  20892.                Call rtitemNew.AppendText("Due date:")
  20893.                rtitemNew.AddTab(1)
  20894.                rtitemNew.AppendText(dtitem.Values(0))
  20895.                Call rtitemNew.AddNewLine(1)
  20896.           End If          
  20897.           rtitemNew.AddNewLine(2)
  20898.      End Select
  20899.      If Not(rtitemSource Is Nothing) Then Call rtitemNew.AppendRTItem(rtitemSource)
  20900. End Sub
  20901. l    l    D
  20902. [0    Kx
  20903. [l    NP
  20904.     Nl    P
  20905.     K0    -
  20906. tmpSendTo
  20907.     0S0E
  20908. tmpCopyTo
  20909.     0S0E
  20910. tmpCopyTo1
  20911. tmpCopyTo2
  20912.     0S0E
  20913. O=Lotus Notes
  20914. O=Lotus Notes
  20915. PURSAFO
  20916. |.:#U
  20917. O=Lotus Notes
  20918. CN=Lotus Notes Template Development/O=Lotus Notes
  20919. PURSAFO
  20920. Fde!f^^
  20921. $ScriptLib
  20922. $ScriptLib_O
  20923. $TITLE
  20924. $Flags
  20925. $PublicAccess
  20926. 06/21/97 02:15:07 PM Ryan Jansen/Iris updated -Default-
  20927. 06/21/97 02:14:18 PM Ryan Jansen/Iris added [OtherDomainServers]
  20928. 06/21/97 02:14:11 PM Ryan Jansen/Iris added [LocalDomainServers]
  20929. 06/21/97 02:14:01 PM Ryan Jansen/Iris added [-Default-]
  20930. 06/21/97 02:13:58 PM Ryan Jansen/Iris updated OtherDomainServers
  20931. 06/21/97 02:13:53 PM Ryan Jansen/Iris updated LocalDomainServers
  20932. 06/21/97 02:13:41 PM Ryan Jansen/Iris deleted Harry Peebles/Iris
  20933. 06/03/97 04:11:29 PM Harry Peebles/Iris updated Harry Peebles/Iris
  20934. 06/03/97 04:11:29 PM Harry Peebles/Iris added Harry Peebles/Iris
  20935. 06/03/97 04:11:29 PM Harry Peebles/Iris updated -Default-
  20936. 06/03/97 04:11:29 PM Harry Peebles/Iris added LocalDomainServers
  20937. 06/03/97 04:11:29 PM Harry Peebles/Iris added OtherDomainServers
  20938. -Default-
  20939. OtherDomainServers
  20940. LocalDomainServers
  20941. [-Default-]
  20942. [LocalDomainServers]
  20943. [OtherDomainServers]
  20944.